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Möchten Sie als Software- Autor 
iür den TRONIC- Verlag tätig werden? 



Wir würden uns freuen, in Ihnen einen Ansprechpartner. für eine 
künftige intensive Zusammenarbeit zu finden. Der TRONIC- Ver- 
lag vereinbart mit seinen künftigen Software -Autoren pro veröf- 
fentlichte volle Seite (einschl. Programmbeschreibung) ein Hono- 
rar von DM 120,-. 

Dieses Entgelt wird fällig, wenn die Redaktion des Verlages sich 
für eine Veröffentlichung entscheidet. Die Auszahlung erfolgt also 
nicht erst nach Veröffentlichung in einer unserer Ausgaben, son- 
dern früher. 

Der Verlag wird vom Autor berechtigt, seine Manuskripte (Pro- 
gramme) zur Darstellung im Heft heranzuziehen und abzudrucken. 



Einzusenden sind: 

- Programmbeschreibung 

- bespielte Cassette oder Diskette 

- Listing (mit Copyright) 

- Freiumschlag 




Der Autor erklärt sich mit der Lieferung seines Programmes oder 
seiner Beiträge ausdrücklich bereit, die Verwertung durch den 
Verlag freizugeben, d. h. er überträgt nicht nur die Nutzung, 
sondern auch die Übereignung des Computerprogrammes und der 
Beiträge. 

Der Autor verpflichtet sich nur solche Programme anzubieten, die 
eigene Entwicklungen des Autors sind. 

Mit der Veröffentlichung oder dem Anlauf des Programmes und 
der Beiträge ist es dem Verlag gestattet, auch eine anderweitige 
bzw. weitergehende Verwertung vorzunehmen, da der Autor dem 
Verlag das Copyright gegen Honorar gestattet hat. Die Verwer- 
tung durch den Verlag ist unbeschränkt und unwiderruflich, wenn 
nicht 10 Tage nach Zusendung der Unterlagen durch den Autor 
widersprochen wird. 

Haben Sie Interesse? Haben Sie noch Fragen? 
Setzen Sie sich telefonisch mit unserer Redaktion in Verbindung! 

TRONIC-VERLAG 

DIE REDAKTION 



Aus dem Inhalt 



it: 



Oil-Panic 




Die beliebte Spielversion für 
den ZX-Spectrum 16K und 
48K. 

Mother Duck 




Die Speicherkapazität des 
TI-99 wurde wieder voll 
ausgenutzt. 



Spiders 




Unser absolutes Toppro- 
gramm in dieser Ausgabe, 
wieder für den Commodore 
64 (siehe auch Heft 9, „Pro- 
jekt"). 

Fressmann 




Ein Topprogramm für den 
VC-20? Jawohl. Wir finden, 
trotz bekannter Spielver- 
sion, ein für den VC-20 her- 
vorragendes Spiel. 



Software 



ATARI 



Splitt 

Splitt soll zu den verborgenen Schätzen 
tauchen und versuchen, sie zu bergen. 

ZX-SPECTRMN 

Pac-Man 

Das Spiel „Pac-Man" ist dem gleich- 
namigen Spielhallenschlager nachempfun- 
den und läuit auf dem ZX-Spectrum 1 6K 
und 48K Ram. 

Oil-Panic 

Die beliebte Spielversion - die defekte Öl- 
leitung - jetzt auch für den ZX-Spectrum 
16K und48K. 



Seite 10 



Seite 12 



Seite 16 



ZX-81 



Panik- Labyrinth 

Ist in erster Linie ein Strategie- und 
Übersichtsspiel, das Können und 
Kombinationsgabe erfordert. 



Seite 19 



11-99 



Screen-Designer 

Ein Maskengenerator für den TI-99/4A in 
Extended Basic geschrieben. 

Mother Duck 

Sind Sie schon einmal in die Rolle einer 
Entenmutter geschlüpft, die verzweifelt 
versucht, ihre Kinder zu füttern? 



Seite 22 



Seite 30 



VC-20 



Fressmann 

Fressmann ist natürlich eine Pacman- Ver- 
sion. Unser abgedrucktes Programm, ohne. 
Programmerweiterung, steht der Original - 
version in nichts nach. 

Outlaw 

Ein Action-Spiel für Wild- West-Fans. 
Spielen Sie gegen den Computer. Für die 
Grundversion des VC-20. 



Seite 36 
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APPLE II 



Jumper 

Der Archäologe Frank sucht nach wert- 
vollen Gegenständen der antiken Stadt 
Athen. 



Seite 40 
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Iic-Iac-Toe 

Ein interessantes dreidimensionales Stra- 
tegiespiel für den Apple erfordert strategi- 
sches und logisches Denken. 

C0NM0D0RE 64 

The Basic 

Eine Basic-Erweiterung für den Commodo- _ 

re 64 um 14 zusätzliche Befehle! Seite 5 1 

Spiders 

Unser absolutes Topprogramm in dieser 
Ausgabe. Lassen Sie sich überraschen. 
Eine Supergrafik zeichnet dieses Spiel 
insbesondere aus. Seite 
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DRAGON 11/64 

Dragonpaint 

Ist ein menuegesteuertes Basicprogramm 
zur Erstellung von Bildschirmgrafiken. 
Also, zeichnen mit dem Joystick 

LASER 2001 

Cave-Man 

Leo Neander ist ein Höhlenmensch. Auf 
der Suche nach Nahrung versucht er, dein 
Saurier die Eier zu stehlen. 



Seite 60 
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News 

Laser 2001 - ein neuer Stern am Compu- 
terhimmel oder nur eine Sternschnuppe? 

Software-Reviews 

Aktuell: von Dynamics 

Neues vom Markt 

Berichte 

Forth-Kurs 

Teil 7: Die Spezialschleifen 

Tips und Tricks 

Schon gewußt? 

Computer-Börse 

Kleinanzeigen 

Aktion: Billige Kleinanzeigen 

Korrekturen 

Kassettenservice 

Nehmen Sie unseren Blitz Service in An- 
spruch. Einfach telefonisch bestellen. 
Heute bestellt - morgen geliefert. 

Schneller geht's nicht! 
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News 



LASER 2001 - Ein neuer Stern am Computer- 
himmel, oder nur eine Sternschnuppe? 



Vor einigen Wochen brachte Sanyo 
Video als Generalimporteur den LA- 
SER 2001 auf den Markt. Wir wollten 
wissen, ob der „große Bruder" der LA- 
SER-Familie das hält, was die Wer- 
bung verspricht. Sanyo Video stellte 
uns zu diesem Zweck die komplette 
LASER 2001 -Peripherie zur Verfü- 
gung. Unsere Testanlage bestand aus: 
LASER 2001 -Konsole, 
1 6-K-MEMORY-EXPANSION- 

MODUL, 

DR 10 Datenrecorder, 

DI 100 A-DISC-DRIVE-CONTROL- 

LER, 

FD 100 A-FLOPPY-DISK-DRIVE, 

PC 20 PRINTER CABLE. 




Laser 2001 



Als Drucker wurde ein Seikosha GP 
700 A-Farbdrucker verwendet. 
Nach dem Auspacken der Konsole 
stellten wir mit Freude fest, daß die 
sonst bei LASER-Computern übliche 
Gummitastatur (LASER 110 und 210) 
einer festen Schreibmaschinentastatur 
gewichen ist. 

Neben dem Netzteil sind ein Recor- 
derkabel, ein TV- Anschlußkabel und 
eine Antennenweiche, die das „um- 
stöpseln" am Fernseher überflüssig 
macht, beigefügt. 

Nachdem die Konsole angeschlossen 
war, erschien das LASER-LOGO in 
grüner Schrift auf schwarzem Hinter- 
grund gut lesbar auf dem Bilschirm. 
Hierzu sei bemerkt, daß der LASER 
2001 auf der Unterseite einen kleinen 
Kanalwahlschalter besitzt, womit der 
Sendekanal eingestellt werden kann 
(Kanal 3 oder 4). 

Eine rote Kontrollampe signalisiert 
uns, daß der Rechner in Betrieb ist. 
Neben dieser Kontrollampe ist eine 
auffällig große (RESET) -Taste zu se- 
hen, auf die wir aber später noch zu 
sprechen kommen. 

Das in ROM gespeicherte Microsoft 
BASIC entspricht weitestgehend dem 
Applesoft BASIC, ist jedoch um we- 
sentliche Grafik-, Färb- und Tonbe- 



fehle erweitert. Die am meisten ge- 
brauchten Befehle sind direkt über die 
CONTROL-Tasten erreichbar, kön- 
nen jedoch auch über die Tastatur ein- 
getippt werden. 

Der LASER 2001 arbeitet mit einem 
6502 A-Mikroprozessor, welcher mit 
2 MHz getaktet wird. Somit wird prak- 
tisch die doppelte Arbeitsgeschwin- 
digkeit des Apple erreicht. 
LASERBASIC kennt 2 verschiedene 
Bildschirmmodi: 1. Der TEXT-Modus: 
Hier hat der Rechner eine Auflösung 
von 24 Zeilen, je 48 Zeichen. Die Zei- 
chen werden mit der PRINT- Anwei- 
sung angesprochen und können auch 
vom BASIC her umdefiniert werden, 
so daß eine gewisse Grafikfähigkeit 
auch im TEXT-Modus erreicht wer- 
den kann. Im TEXT-Modus ist jedoch 
nur eine Vordergrund- und eine Hin- 
tergrundfarbe möglich. 
Die Cursorbewegung läßt sich pro- 
grammieren, so daß ein Maskenbe- 
trieb möglich ist. 

2. Der GRAFIK-Modus: 

Im Grafikmodus beträgt die Auflösung 
192 Zeilen je 256 Punkten. Hierbei 
können, alle 16 Farben gleichzeitig 
dargestellt werden. Die Farbauflösung 
beträgt 192 Zeilen je 32 Farbbalken. 
Erst in Grafikmodus kommen die Be- 
fehle PLOT, UNPLOT, CIRCLE und 
RECT zur Wirkung. Die PRINT An- 
weisung ist im Grafikmodus jedoch 
wirkungslos, da für den Grafikmodus 
ein anderer Platz im Videoraum be- 
nutzt wird, als für den Textmodus. Es 
ist deshalb nicht so ohne weiteres 
möglich, ohne die genauen RAM-Ver- 
hältnisse zu kennen, Text und Grafik 
zu mischen. 

Der LASER 2001 benutzt als Video- 
prozessor den TM 9928 A von Texas 
Instruments. Dieser Videoprozessor 
hat die Eigenschaft bis zu 32 Sprites 
gleichzeitig darstellen zu können. Die 
Sprites können bis zu einer 32 x 32 
Matrix generiert, und ohne Pro- 
grammkontrolle bewegt werden. LA- 
SERBASIC kann jedoch die Sprites 
nicht direkt ansprechen. Nach Aussa- 
ge von Sanyo Video ist jedoch ein 
Charakter- und Sprite-Generator in 
Vorbereitung, der bis zum Herbst auf 
Diskette, bzw. Cassette angeboten 
werden soll. Somit werden auch die 
Sprites für Benutzer, die sich mit der 
Maschinensprache nicht auskennen, 
zugänglich. 



All denjenigen Computerfreaks, die 
sich gerne mit dem Innenleben des 
Rechners beschäftigen, sei an dieser 
Stelle jedoch das TM 9928 A Daten- 
buch von Texas Instruments empfoh- 
len. 

Als Soundprozessor wird der SN 
76489 A verwendet, welcher 3 Tonka- 
näle und einen Rauschkanal gleichzei- 
tig verarbeiten kann. 
LASERBASIC kennt gleich 2 Routi- 
nen, um den Soundprozessor zu 

steuern: 

SOUND: Mit dieser Routine können 
die drei Tonkanäle und gem. Program- 
mierhandbuch auch der Rauschkanal 
angesprochen werden. Diese Routine 
eignet sich besonders gut dazu Melo- 
dien zu programmieren. Wir konnten 
dem LASER 2001 jedoch mittels der 
SOUND-Routine keinen einzigen 
Rauschton entlocken, und mußten zu 
diesem Zweck auf die zweite Routine 
SGEN zurückgreifen, wodurch sich 
dieses Vorhaben ausgezeichnet reali- 
sieren ließ. 

SGEN erlaubt es dem Benutzer ohne 
umständliches POKEN den Soundpro- 
zessor direkt zu steuern. Somit lassen 
sich alle nur möglichen Geräusche, ob 
Explosionen, Glockengeläut oder Vo- 
gelgezwitscher realisieren. Interes- 
sierten Benutzern sei hierbei das SN 
76489 A-Datenblatt von Texas Instru- 
ments empfohlen. 

Kommen wir nun zur Peripherie des 
LASER 2001: 

Als einfacher Massenspeicher läßt 
sich jeder handelsübliche Kassetten- 
recorder anschließen. Beim Anschluß 
eines normalen Recorders muß jedoch 
darauf geachtet werden, daß entgegen 
den Angaben der Bedienungsanlei- 
tung der rote Stecker an die Ohrhörer- 
buchse und der schwarze Stecker an 
die Aufnahmebuchse des Recorders 
angeschlossen wird. Bei der Verwen- 
dung eines handelsüblichen Recor- 
ders ergaben sich jedoch durch die 
unterschiedlichen Recordertyper 

Schwierigkeiten beim Austausch dei 
Programmkassetten. 
Verwendet man hingegen den von Sa- 
nyo empfohlenen DR 10 Datenrecor- 
der, so ergeben sich keine Aufnahme- 
und Ladeschwierigkeiten, da der DI 
10 optimal auf den LASER 2001 abge 
stimmt ist, und eine fest eingestellt* 
Lautstärke besitzt. Die Programmkas 
setten sind hierbei vollends kompati 
bei. Auch der Anschluß des Compu 

weiter Sehe 

. Computroni 




Attraktive Spiele - Software 

von Dynamics für den Commodore 64 



Der große Hamburger Homecompu- 
ter-Software- und Zubehör-Anbieter 
Dynamics Marketing GmbH stellt neue, 
attraktive Spiele-Software vor. 
Actionreiche, schnelle Spiele, mit gu- 
ter Grafik, für den Commodore C64. 
Die Software wird angeboten auf Kas- 
sette und teilweise auch auf Diskette. 
Neu bei den Spielprogrammen auf 
Kassette ist die Turboladung. Mit die- 
sem Schnellade- Verfahren verkürzt 
sich die Ladezeit der Kassette auf 2 
Minuten. 

Gesteuert wird der Turbo-Lader über 
ein zusätzliches Programm, das auch 
einen Autostart bietet (der „Run "-Be- 
fehl entfällt). Durch den Turbo-Lader 
ist ein Kassetten-Spielprogramm jetzt 
genauso schnell auf dem Bildschirm 
wie bei einer Diskette. 



Vielfältiger Drucker 
für hohe Ansprüche 



Der Drucker IDS Modell 480 von Inte- 
gral Data System, (Paper Tiger) besitzt 
serienmäßig eine 7/8 Bit Parallel- 
Schnittstelle (Centronics) bei einer 
Datentransferrate von 35 Kilobyte und 
eine RS-232-C-Schnittstelle mit einer 
wahlweisen DTR von 300, 1200 oder 
9600 Baud. 

Unter Near Letter Quality werden die 
Zeichen in einer 24 x 9-Matrix mit 75 
Zeichen pro Sekunde dargestellt. Ge- 
druckt werden kann in 10, 12, 16,8 
Zeichen pro Inch und Proportional- 
schrift. Bei 16,8 Zeichen pro Inch 
bringt der Drucker mit 110 Zeichen in 
der Sekunde 132 Zeichen in eine Zei- 
le. 

Ein selbständiger Randausgleich mit 
beliebiger Festlegung des linken und 
rechten Randes Weisen diese Maschi- 
ne als komfortables Gerät aus. 
Über die einfache Benutzung durch 
nur zwei Kontrollcodes ist der Aus- 
druck auch in Superscript und Sub- 
script möglich. 

Im Graphic-Mode erreicht der Druk- 
ker eine Auflösung von 84 x 84 Dots 
per Inch. Einstellbar auf sechs interna- 
tionale Zeichensätze ist dieser Druk- 
ker allen Problemen gewachsen. 
Trotz seiner kompakten Maße von nur 
1 15 x 405 x 297 mm (HxBx T) besitzt 
der IDS 480 einen eingebauten Trak- 
tor. Knut Redmann, DV-Anlagen- 
Großhandel, Postfach 1154, 6073 
Egelsbach, Telefon (0 61 03) 4 98 55. 




„CAVILON" 

Auf dem Planeten Cavilon haben die 
Computer die Macht übernommen. In 
allen Gebieten sind Überwachungsba- 
sen gebaut worden, die den Luftraum 



total kontrollieren. Sie sind mit einem 
Raumschiff von der Erde mit dem Auf- 
trag unterwegs, die Auf ständigen und 
ihre Raumschiffe zu bekämpfen. 
Ein Action-Spiel auf Diskette oder 
Kassette. 




„JONGLEUR" 

Auf einer Bühne jongliert ein kleiner 
Chinese Teller auf langen Stöcken. 
Damit diese nicht herunterfallen, müs- 
sen die Stöcke dauernd in Bewegung 
gehalten werden. Fällt ein Teller den- 



noch herunter, muß ein neuer Teller 
geholt und aufgelegt werden. Sind alle 
Stöcke belegt, tanzt der kleine Jon- 
gleur vor Freude und beginnt die 
nächste, noch spannendere Runde. 
Ein Geschicklichkeitsspiel auf Disket- 
te oder Kassette. 



Computronic 




Einzigartiges Disketten- Archivsystem 



Albbruck, 17. August 1984. - Disket- 
ten sind empfindlich gegen Schmutz. 
Ein staubdichter Behälter gibt Sicher- 
heit. ERNO hat ein kompaktes Disket- 
ten-Aufbewahrungs- und Archiv- 
system entwickelt, das vor Staub, 
Rauch, Licht und mechanischen Ein- 
flüssen schützt und eine schnelle Ab- 
lage, sowie bequemen Zugriff ermög- 
licht: Die ERNO UNIßOX. 
Auf kompaktem Raum wird Platz für 
80 Disketten ohne Couvert (bzw. 48 
mit Couvert) geboten. 8 Abteile er- 
möglichen den Aufbau einer über- 
sichtlichen Datei. Die stabilen Trenn- 
wände verhindern Beschädigungen, 
wie Verbiegen und Knicken. Mit ergo- 
nomisch gestalteten Griffmulden las- 
sen sich die Abteile leicht mit einer 
Hand „blättern" und weit öffnen. Die 
Fächer werden mit dem dazugehören- 
den Archivierungs-Etiketten-System 
gekennzeichnet. Das hochwertige 
Kunststoffmaterial ist „Anti-Statik"- 
behandelt. Die Gestaltung im moder- 
nen Design (Sockelfarbe computerbei- 
ge, braun-rauchglasfarbene Abteile) 
paßt sich jeder Umgebung an. Die 
UNIBOX beansprucht wenig Raum 



und findet auch in Schreibtisch-Schü- 
ben Platz. 

Kompaktbauweise, Maße: L 257 x B 
1 73 x H 1 43 mm, Gewicht 6 1 2 Gramm, 
empfohlener Verkaufspreis 39,- DM. 
Kostenlose Information: ERNO PHOTO 
GMBH, Postfach 1 140, 7892 Albbruck 
1, Tel. 77 53/50 05. 
ERNO zählt als Mitglied der interna- 
tional tätigen ERNO Gruppe zu den 
bekannten Unternehmen der Foto-, 
Film- und Videobranche. ERNO be- 
faßt sich mit dem Vertrieb namhafter 
Produkte. 

ERNO UNIBOX: Kompaktes Disketten- 
Aufbewahrungs- und Archivsystem 
mit direktem Zugriff auf bis zu 80 Dis- 
ketten im SVi-Zoll-Format; 8 weit auf- 
klappbare, staubgeschützte Abteile; 
im aufgeklappten Zustand kein größe- 
rer Raumbedarf erforderlich; komplett 
mit Archivierungs-Etiketten; hoch- 
wertiger Kunststoff mit Anti-Statik- 
Behandlung; Sockelfarbe computer- 
beige; Abteilfarbe in braun-rauchglas 
als Lichtschutz; 612 Gramm, Kopakt- 
maße: L 257 x B 173 x H 143 mm. 
Preis 39- DM. 



Mikros im Betrieb 



Betriebswirtschaftliche Probleme mit 
dem Mikro-Computer zu lösen, hat 
der Betriebswirtschafticher Verlag Dr. 
Th. Gabler, Wiesbaden, mit dem Seg- 
ment „Mikro" der Programmreihe 
„Gabler-Praxis" begonnen. Die formu- 
lierte Zielsetzung, EDV-Anwenderli- 
teratur herauszugeben, die auch für 
solche Interessenten lesbar und an- 
wendbar ist, die sich nicht als EDV- 
Experten verstehen, zeigt sich deut- 
lich bei den ersten drei Titeln, die so- 
eben vorgestellt wurden. 
„Statistik im Betrieb mit BASIC auf 
Commodore" , bietet dem Benutzer der 
Commodore-Serien 2000, 3000, 4000 
oder. 8000 für den Betrieb mit BASIC- 
Interpretern Lösungen: Vom Hypo- 
thesentest, exponentieller Glättung, 
Zeitreihenanalysen, Ausgleichsfunk- 
tionen bis zu Maß- und Indexzahlen, 
Regression und Korrelation, Süchpro : 
benauswertung. Diese 45 Programme 
sind auch auf Diskette erhältlich und 
lassen sich durch geringfügige Modifi- 
kation der Listings problemlos auch an 
unterschiedliche Systeme anpassen. 
Die Autoren Scharnbacher und Kast- 
ner sind ordentliche Professoren und 
Dozenten für Statistik an der Fach- 
hochschule in Mainz. 



Gustav Kastner ist ebenfalls Autor des 
zweiten Gabler-Mikro-Buches „Oper- 
ations Research mit BASIC auf Com- 
modore." Diese besonders zeitintensi- 
ven Verfahren werden somit auch dem 
Klein- oder Mittelbetrieb durch den 
Mikro zugänglich. Das Buch vermit- 
telt über die Programm-Listings hin- 
aus auch deren Logik anhand von 
Strukturprogrammen. 
Ein für alle Branchen stets aktuelles 
Problem - die Terminplanung - löst 
Kastner in seinem nächsten Buch: 
„Terminplanung mit BASIC auf Com- 
modore". Auch diese Software (eben- 
falls 5V4-Zoll-Diskette erhältlich) ist 
sofort einsetzbar auf alle Commodore- 
Computern der Serien 2000-4000 mit 
BASIC-Interpretern. 
Gambler sieht dieses neue Programm, 
als Praktiker-Ergänzung der bereits im 
Markt befindlichen Hobby-Bücher 
und wird so sehr schnell die Umset- 
zung wissenschaftlicher Methoden 
mit Mikro-Computern in Buch- und 
Diskettenform weiterentwickeln. Für 
die Qualität der Produkte bürgen ne- 
ben dem seit Jahren anerkannten Au- 
torenkreis auch Tradition und Erfah- 
rung des Wiesbadener wissenschaftli- 
chen Fachverlages. 



Symposium 
„Mensch + Medien" 



mit angeschlossener Ausstellung 

Ettlingen/Fiankfurt. - Die Präsentation 
bereits installierter Kunden- und 
Branchenlösungen mit modernen 
Kommunikationsmedien soll im Mit- 
telpunkt einer Ausstellung stehen, die 
vom 19. bis 22. November 1984 in 
Ettlingen stattfinden wird. Die Aus- 
stellung selbst, bei der vermieden wer- 
den soll, eine Ansammlung von Hard- 
und Software zu präsentieren, ist als 
Rahmenprogramm für das vom 22. bis 
24. November 1984 im Ettlinger 
Schloß stattfindende Symposium 
„Mensch + Medien" vorgesehen. Ver- 
anstalter ist die Arbeitsgruppe Neue 
Kommunikationstechniken e.V. 

(ANK), deren Ziel es ist, neue Medien 
und die damit auftauchenden Pro- 
blemfälle, transparenter und - insbe- 
sondere der mittelständischen Wirt- 
schaft - zugänglicher zu machen. 
Das Symposium selbst, dessen Teil- 
nehmerzahl auf maximal 750 Personen 
begrenzt ist, teilt sich in Plenarveran- 
staltungen, Workshops und Anwen- 
der-Arbeitsgruppen auf. Referate, wie 
zum Beispiel „Die neuen Kommunika- 
tionstechniken - eine Herausforde- 
rung an den Mittelstand" oder „Neue 
Medien: Evolution oder Revolution in 
der Gesellschaft?" bilden den Schwer- 
punkt am 22. November. Die Work- 
shopveranstaltungen am 23. Novem- 
ber sind in vier Themenblöcke geglie- 
dert: „Rechnergeschützte Arbeitsplät- 
ze", „Mensch + Medien", „Bildschirm- 
text für Jedermann" und „Anwender- 
orientierter Beratungs-Service" . 
Abends stehen in der Stadthalle Ett- 
lingen unter dem Thema „Tele-Kom- 
munikation" Informationen über Sa- 
telliten-Fernsehen, Kabel-Pilot-Pro- 
jekte und Video-Konferenzen auf dem 
Programm. Das Symposium der ANK 
endet am 24. November 1984 mit dem 
Treffen verschiedner Anwender-Ar- 
beitsgruppen. Hier werden, so ein 
Sprecher der Arbeitsgruppe Neue 
Kommunikationstechniken, teilneh- 
merorientierte Anwendungserwar- 
tungen diskutiert, Daten und Fakten 
für die Übertragung in die eigene Pra- 
xis erstellt, Entscheidungshilfen sowie 
Richtlinien für Aus- und Weiterbil- 
dungs-Konzeption erarbeitet. 
Unterlagen über das Symposium 
„Mensch + Medien" sowie die beglei- 
tende Ausstellung sind, über die ANK- 
Geschäftsstelle, Ketteier Straße 5, 
7517 Waldbronn, anzufordern. 
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News 



ters stellt keine Schwierigkeiten dar, 
da die Anschlüsse am DR 10 farblich 
gekennzeichnet sind. Wer Zeit hat, 
um Programme und Daten mit einer 
Geschwindigkeit von 300 Baud (App- 
lesoft-Standard) zu saven, der findet 
im DR 10 einen sicheren und billigen 
Massenspeicher. 

Der LASER 200 1 hat eine eingebaute 
parallele Schnittstelle. Mittels des PC 
20 Printer-Kabels kann somit jeder 
Drucker mit Centronics-Schnittstelle 
angeschlossen werden. Man spart sich 
somit das teure Geld für ein spezielles 
Interface. 

Zur Steuerung der Schnittstelle ste- 
llen 2 "Befehle zur _ Verf ügurig:" 

LPRINT sendet Daten zum Drucker. 
LLIST listet das Programm auf dem 
Drucker aus. 

Der LASER 2001 bietet eine RAM- 
Kapazität von 32 K-Bytes. Davon ste- 
hen in der Grundversion 12884 Bytes 
für BASIC frei zur Verfügung. Das 
hört sich zwar recht wenig an r es sei 
hierzu jedoch bemerkt, daß diese 
12884 Bytes volle 7 Seiten Druckerli- 
sting speichern können. 
Wem dieser Bereich zu klein ist, der 
kann das 16 K-Memory-Expansion- 
Modul in den seitlichen Modulschacht 
stecken, und somit den BASIC-Be- 
reich um volle 16 K erweitern. Der 
LASER 2001 bietet dann eine stattli- 
che RAM-ROM-Kapazität von 64 K- 
Bytes. 

Wer auf . schnellen Programmen und 
Datenzugriff Wert legt, der sollte sein 
Augenmerk auf den DI 100 A-DISK 
DRIVE-CONTROLLER und das FD 
100 A-Floppy-Disk-Drive legen. DI 
100 A und FD 100 A werden zusam- 
men ausgeliefert. 

Beim Anschluß des Diskettenlaufwer- 
kes ist jedoch unbedingt darauf zu 
achten, daß die Netzteilstecker der 
Konsole und des Laufwerkes nicht 
vertauscht werden, da diese Stecker 
identisch sind, die Konsole jedoch die 
Spannung des Laufwerknetzteiles sehr 
übel nimmt. Die Stecker hätte man 
hierbei zumindest farblich kennzeich- 
nen sollen. 

Im DI 100 A ist das DOS implemen- 
tiert, welches aus 18 zusätzlichen Be- 
fehlen besteht. Das DOS umfaßt sämt- 
liche zur Diskettenverwaltung not- 
wendigen Befehle. Selbst Befehle für 
RANDOM ACCESS-Dateien sind im 
DOS enthalten. Somit entfällt die um- 
ständliche Programmarbeit, wie sie bei 
anderen Home Computern üblich ist. 
Wir vermißten jedoch Befehle, womit 
sich Dateien und Disketten direkt ko- 
pieren lassen. 



Ferner mußten wir feststellen, daß das 
im Handbuch beschriebene „.HELLO- 
Programm" vom DOS nicht ausgeführt 
werden kann. Um eine Diskette zu ini- 
tialisieren darf lediglich FORMAT 
»RETURN« eingegeben werden. 

Was uns wiederum gut gefiel ist, daß 
bei eingelegter Diskette nach dem Ein- 
schalten der Konsole automatisch das 
Inhaltsverzeichnis der Disk gelesen, 
und auf dem Bildschirm angezeigt 
wird. 

Ferner sind die Befehle zum Datei- 
schutz und Umbenennen einer einzel- 
nen Datei sehr sinnvoll und nützlich. 
Der Dateibuffer des Controllers nimmt 
jedoch 1792 Bytes des BASIC-RAMs 
in Anspruch. 

Der DI 100 A-Disk-Drive Controller 
kann bis zu zwei Laufwerke gleichzei- 
tig verwalten. 

Als Manko des Laufwerkes empfan- 
den wir den lauten Datenzugriff, was 
sich später jedoch als sehr nützlich 
erwies, da hierdurch niemand auf die 
Idee kommt, die Diskette beim Daten- 
zugriff trotz eingeschalteter „ACTI- 
VE" Lampe aus dem Laufwerk zu neh- 
men. 

Für Telespieler ist der LASER 2001 
das ideale Gerät. Es können 2 handels- 
übliche Joysticks an der Frontseite 
der Konsole angeschlossen werden, 
welche mittels der Routine CALL 
-1536 auch ins eigene BASIC-Pro- 
gramm eingebunden werden können. 
Sanyo Video bietet zur Zeit schon eine 
Reihe von Telespielen auf Modul an. 
Ferner ist ein Adapter in Vorberei- 
tung, womit Coleco-Telespielkasset- 
ten abgespielt werden können. An die- 
sem Coleco-Adapter kann wiederum 
der von CBS angebotene Atari- Adap- 
ter angeschlossen werden. Somit las- 
sen sich auch noch sämtliche Spielmo- 
dule für das ATARI VCS 2600-Tele- 
spiel abspielen. Dem Spielfan steht da- 
mit eine Spielesammlung von mehre- 
ren hundert Spielen zur Verfügung. 
Auf eine kleine Besonderheit der LA- 
SER- Joysticks sei hier hingewiesen: 
Die LASER- Joysticks besitzen 2 Ak- 
tionsknöpfe, welche sich in eigenen 
BASIC-Programmen unabhängig von- 
einander abfragen lassen. 

Die anfänglich angesprochene "RE- 
SET" -Taste ist im Prinzip nur ein In- 
terrupt, d. h. wenn diese Taste ge- 
drückt wird, wird der Computer ange- 
halten, das Programm und sämtliche 
Daten bleiben jedoch erhalten. Trotz- 
dem sollte die „RESET" -Taste nur im 
Notfall benutzt werden. Ein BASIC- 
Programm hält man besser mit BREAK 



(»CTRL«&»C«) an, da „RESET" das 
DOS löscht. Sollte dies wirklich ein- 
mal passieren, so kann man das DOS 
jedoch mit CALL 6670 »RETURN« 
ohne Programmverlust zurückholen. 
Die zum LASER 2001 und zum DOS 
mitgelieferte Literatur läßt zu wün- 
schen übrig. Der Text ist zwar recht 
ansprechend geschrieben, so daß das 
Lesen der Bücher Spaß macht, doch 
sind die Beschreibungen relativ kurz 
gefaßt, und beschränken sich auf das 
Notwendigste. In den Programmbü- 
chern sind außerdem einige Fehler zu 
finden. Sanyo Video überarbeitet und 
korrigiert jedoch zur Zeit die Handbü- 
cher, und wird diese in Kürze auf den 
Markt bringen. 

Dieser Test konnte natürlich nicht alle 
Seiten des LASER 2001 beleuchten, 
sondern soll dem Kaufinteressenten 
einen Einblick in die Leistungsfähig- 
keit des Computers geben. Ferner sol- 
len durch den Test dem LASER 2001- 
Benutzer ein paar kleine Tips zur opti- 
maleren Nutzung des Computers ge- 
geben werden. Um den LASER 2001 in 
allen Details zu beschreiben und zu 
erforschen könnte man ein ganzes 
Buch schreiben. 

Zusammenfassend kann man sagen, 
daß der LASER 2001 sein Geld wert 
ist, und das, was die Werbung ver- 
spricht hält. Man bekommt beim LA- 
SER 2001 viel Computer fürs Geld. 
Die kleinen Schwächen, die auftauch- 
ten, werden durch andere Stärken 
vollends wieder wettgemacht, und 
welcher Computer kann von sich 
schon behaupten, er wäre „perfekt"? 
Wir wollen hoffen, daß sich die Litera- 
tur bald auch auf den LASER 2001 
stürzt, und daß bald eine BASIC-Er- 
weiterung wie zu den kleinen LASER- 
„Brüdern" erscheinen wird. 

Alles in allem kann man sagen, daß der 
LASER 2001 seine Daseinsberechti- 
gung auf dem Computermarkt ver- 
dient hat. 

Wir wünschen diesem neuen Stern am 
Computerhimmel ein langes Leben. 
Der LASER 2001 ist es wert. 



Technische Daten 

6502 A-Mikroprozessor 2 MHZ 

TM 9928 A- Videoprozessor 

SN 76489 A-Sound-Generator 

16 K ROM 

32 K RAM erweiterbar auf 48 K 

Schreibmaschinentastatur mit Groß- 

und Kleinschreibung 

Grafikmodus 192 X 256 Punkte in 16 

weiter Seite 73- 
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Splitt, der Taucher, soll zu den verborgenen 
Schätzen tauchen und versuchen, sie zu bergen. 



Nach Eingabe von RUN erscheint 
das Titelbild mit der Bitte „einen 
Moment bitte". Sobald dieses 
durch die Aufforderung „press 
start" ausgetauscht wird, kann das 
Spiel beginnen. Gespielt wird mit 
Joystick, 

Der Sinn des Spieles besteht darin, den 
Taucher (rot) durch die Korallen (blau) 
zu den Schätzen zu bewegen und diese 



nacheinander zum Boot zu bringen. Es 
dürfen jedoch nicht zwei Schätze auf 
einmal aufgenommen werden, da nach 
Berühren der Wasseroberfläche nur 
einer registriert wird. 
Hat man schließlich alle Schätze ge- 
borgen, so gratuliert einem der Com- 
puter und das nächste Level beginnt. 
Berührt der Taucher während des 
Spiels eine der blauen Korallen, büßt 
er unter lautem Getöse eines seiner 



Leben, die am oberen linken Bild- 
schirmrand angezeigt werden, ein, Zu- 
gleich erscheint über ihm eine Sprech- 
blase mit der Inschrift „HELP". 

Es kann während des Spieles einmal 
vorkommen, daß kein Weg durch das 
Korallenriff existiert, dann bleibt dem 
Spieler nichts anderes übrig, als eines 
seiner Bildschirmleben zu opfern um 
zu einem neuen Bild zu gelangen. 



113 REfl £*#X***£****XX******* 

20 REN '* SPLIT DER TAUCHER * 

30 REM * Cc D 1384 BY * 

40 REH * OLIUER CYRANKA * 

50 REF1 ##;*c*#*;*####*X*#****** 

55 GOSUB 950 

60 SC=0 :LI=4 :2=PEEKC 1063-8 :H=2X256 

70 REM AENDERN DER 2EICHENSAET2E 

80 POKE 53768, 26 :FOR L=128 TO 471 =POKE H 

+L,PEEKC57344+I3 =POKE H+512-rL, PEEKC57344 

+LD :NEXT L 

30 READ EsIF E=-l THEN GOTO 115 

100 FOR ABSCH=0 TO 7: READ FIGUR :P0KE H+E 

*8+ABSCH, FIGUR -NEXT ABSCH 

110 GOTO 90 

115 GOSUB 1030 

120. GRAPHICS 17:SETC0LOR 1,3,9 :SETCOLOR 

3, 1, 14-SETC0L0R 2,7,10:POKE 756, 2 JSCHAT2. 

=0 2SC=0 sSLAB=0 :KJ=0 

138 DATA 1,8,52,148,120,14,5,2,1 

140 DATA 2,16,44,41,30,112,160,64,128 



0,40, 16,56,108,56 
0, 16,56,108,56, 16 
90, 189, 189, 126,60,24 
0,0,16,45,255, 125 
2,5, 136, 127,63,31, 15 
200 DATA 8,25,42,156,108,255,255,255,255 
210 DATA 9,0,0,32,124,140,132,148,136 
220 DATA 10,255,129,129,255,0,0,0,0 
225 DATA 11,129,90,36,90,90,36,90,129 



150 DATA 3,0 
160 DATA 4,0 
170 DATA 5,0 
180 DATA 6,0 
190 DATA 7,0 



227 DATA 12,255,3,0,0,0,0,0,0 

228 DATA 13,0,23,40,68,40,63,162,196 

229 DATA 14,32,220,2,64,128,60,64,240 

230 DATA 15,0,224,16,44,66,132,2,201 

231 DATA 16,65,131,64,32,17,10,4,0 

232 DATA 17, 0, 192, 0, 8, 19, 230,. 8, 1 6 

233 DATA 18 , 21 , 35, 83, 141 , f, 234, 20, 

234 DATA 19,24,36,66,64,76,74,36,24 

235 DATA 20,05 0,56,68,4,116,68,58 

236 DATA 21,0,0,84,42,42,42,42,42 

237 DATA 22,0,0,60,66,124,64,66,60 

238 DATA 23,0,0,60,66,66,66,66,60 

239 DATA 24,0,0,66,66,66,36,24,24 

240 DATA 25,0,0,60,66,124,64,66,60 

241 DATA 26,0,0,8,84,34,32,32,32 
243 DATA -1 

245 GOTO 280 

250 REM BILDSCHIRMINFORNATIONEN 

260 FOR n=0 TO LI-l:COLOR 1 :RLOT M,0:NEX 

T M:FOR 11=10 TO SC+9 :C0LOR KJ :PLOT M,0:N 

EXT n 

270 LET KJ=5:RETURN 

280 SOUND 3,25,4, 1 

290 COLOR 10:PLOT 0,2:DRAWTO 19,2 

300 COLOR 7 2PLOT 9,4:C0L0R 82PLOT 10, 4^0 

CLOR 9^PL0T 11,4 

310 COLOR 12:PL0T 0,5-DRAWTO 19,5 

320 COLOR 138:PL0T 0,23:DRAWTO 19,23:PL0 

T 2,20:DRAWTO 8,20:pLOT 10,20-DRAUITO 17, 

20 



A lifetime warranty. And manufac- 
turing Standards that make it almosi 
unnecessary. 

Consider this: Every time you take 
your disk for a little spin, you expose 
it to drive heal that can sidetrack data. 
Worse, take it to ihe point of no return. 
Maxell's unique jacket construction 
defies heat of 140°E And keeps your 
Information on track. 

And Maxell runs clean. A unique 
process impregnates lubricants 
throughout thc oxide layer. Extending 
media andhead life. How good is Gold? 



Maxell's the disk that many drive manu- 
facturers trust to put new equipment 
through its paces. It's that bug-free. 
So you can drive a bargain. But in 
accelerated tests, Maxell floppys lead 
the industry in error-free Performance 
and durability. Proving that if you can't 
stand the heat you don't stand a chance. 

maxeil 

IT'S WORTHIT 



iriß>«a 
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330 PLOT 0,22:DRAUiTO 2,20:PLOT 17,20=DRA 

l*JTO 19,22 

340 FOR 11=0 TO 19:PL0T M,22:NEXT M 

350 LET A=35=F0R 11=1 TO 16 STEP 2:PL0T M 

,22:C0L0R A^LET A=A+0. 5 =NEXT M 

360 FOR DU=0 TO 100;COLOR 171 :PLOT CRNDC 

03^kl7J + l , CRNDC03X103+8:NEXT DU 

365 PLOT 0,6:DRAWTO 0,21:PLOT 19,6:DRAWT 

19,21 

370 GOSUB 250 

380 LET A=3:LET B=6^C0L0R 2:PL0T A,B 

400 REM BEWEGEN DER OBJEKTE 

410 LET S=STICKC03 

420 IF S=7 THEN GOTO 470 

430 IF S=ll THEN GOTO 510 

440 IF S=14 THEN GOTO 550 

450 IF S=13 THEN GOTO 590 

460 GOTO 410 

470 REM TAUCHEN RECHTS 

480 LET A=A+1 =LOCATE A,B,HaF A>18 THEN 

LET A=18 

490 COLOR 2=PL0T A,B:COLOR 0:PLOT A~1,B 

500 GOSUB 630:GOTO 410 

510 REM TAUCHER LINKS 

520 LET A=A-l:LOCATE A,B,H:IF A<1 THEN L 

ET A=l 

530 COLOR 1 :PLOT A,ß:COLOR JPLOT A+1,B 

540 GOSUB 630-GOTO 410 

550 REM TAUCHER AUFUIAERTS 

560 LET B=B-l:LOCATE A,B,H 
570 COLOR 2:PL0T A,B:COLOR 0:PLOT A,B+1' 
580 GOSUB 630:GOTO 410 
590 REM TAUCHER ABWAERTS 
600 LET B=B+1 :LOCATE A,B,H 
610 COLOR 1 :PLOT A,B:COLOR O'PLOT A,B-1 
620 GOSUB 630:GOTO 410 

630 IF H=12 OR H-171 OR H=138 OR H=35 OR 
H=36 OR H=37 OR H=38 THEN POP :GOTO 650 
640 RETURN 

650 IF H=35 OR H=36 OR H=37 OR H=38 OR H 
=12 THEN GOTO 690 

660 COLOR 1 :PLOT A,ß:COLOR 1 41 =PLOT A-l , 
B-2^COL0R 142:PLOT A,B-2-C0L0R 143:PLOT 
A+1,B~2 

670 COLOR 144JPLOT A- 1 , B-l ."COLOR 145 ^PLO 
T A,B-1=COLOR 146 :PLOT A+1,B-1 
680 LET LI=LI-1 -'SOUND 0, 25, 4, 15 : FOR LAN= 
TO 100:NEXT LAN^SOUND 0,0,0,0:FOR LAN= 
TO 900: NEXT LAN 
685 IF LI=0 THEN GOTO 750 
687 GOTO 120 
690 IF H=12 THEN GOTO 720 



700 SOUND 3 108,10,15:FOR L=0 TO 100 :NEX 

T L^SOUND 0,0,0,0 

710 LET SCHAT2=1 :GOTO 410 

720 IF SCHAT2=1 THEN LET SC=SC+1 :SOUNQ 

, 108, 10, 15:G0SUB 250:FOR LAN=0 TO 100 :NE 

XT LAN:SOUND 0,0,0,0 

730 IF SCHAT2=1 THEN LET SLAB=SLAB+1 JIF 

SLAB>=7 THEN GOTO 780 

740 COLOR 12 2PLOT A,B^LET B=B+1 :COLOR 2: 

PLOT A,B2LET SCHAT2=0 =GOTO 410 

750 REM GAME OUER 

760 LET C=147:F0R ST=5 TO 8:COL0R C2PLOT 

ST,10:LET C=C+l:NEXT ST 
770 FOR ST=11 TO 14^C0L0R C^PLQT ST,10:L 
ET C=Ctl:NEXT ST^GOSUB 870:QOSUB 940 ^LET 

LI=4^G0T0 120 
780 REM GESCHAFFT 

790 GRAPHICS 18=LET SG=SG+1 :SETCOLOR 1,8 
,9:P0KE 708,58 

800 ? #6 j "XXXXXXXXXXXXXXXXXXXX" 
810 ? #6;"* gratulat ion X" 
820 ? #6j"* sie haben den " ;SGj''. *" 
830 ? #6;"* schätz gehoben X" 
848 ? #6;"* nun den " jSQVl;". X" 
850 ? =»6,*"********************" 
860 GOSUB 870JGOTO 120 
870 REM SOUND 

880 RESTORE 9102FOR LESE=0 TO 15JREAD N, 

LAN 

830 SOUND 0,N, 10, 10;FOR ANHA=0 TO LAN/10 

.'NEXT ANHA:SOUND 0,0,0,0 

900 NEXT LESE 

910 DATA 108,500,108,250,144,250,96,250, 

85, 1000,81,500,85, 250, 108,250,96,500,0,5 

00, 81 , 500, 85, 250, 108, 250, 72, 500 

920 DATA 144,500,108,1000 

930 RETURN 

940 IF PEEKC532793 06 THEN GOTO 340 

945 RETURN 

950 GRAPHICS 18:POKE 708, 58 ^SETCOLQR 1,8 

,9=LET RET=RET+1 

960 ? #6,' "XXXXXXXXXXXXXXXXXXXX" 

970 ? #6j"*splitt der taucherX" 

980 ? #6;"* Cc 31984 by X" 

990 ? #6;"* ohver.cyranka X" 

1030 ? #6;"Xe ine.n moment bitte*" 

1010 ? #6;"XXX*XXXX*XXXXXXXXXXX" 

1020 IF RET=1 THEN RETURN 

1030 POSITION 0,8:? #6;"* press start 

X" 
1040 IF PEEKC532793 06 THEN GOTO 1040 
1050 RETURN 
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Das Spiel „PAC MAN" ist dem gleichnamigen 
Spielhallenschlager nachempfunden 



und läuft auf dem Sinclair ZX Spectrum mit 16k oder 48k RAM. 



Da das Programm größtenteils in Ma- 
schinensprache geschrieben ist, läuft 
PAC MAN sehr schnell und erreicht 



35 REM ** ALEXANDER WALTER 

40 REM ** 

45 REM ** 

50 REM ** 

55 REM ** 8900 AU6SBUR6 

60 REM ** 

65 REM ******************* 

70 REM ******************* 

80 BQ T0 1030 

90 



einen großen Schwierigkeitsgrad. Le- 
diglich die Graphik könnte noch ver- 
bessert werden (der Spieler ist in den 
Speicherstellen 32735 bis 32742 dar- 
gestellt und die Gegner in 32727 bis 
32734). 

Das Spiel ist so eingestellt, daß in je- 
dem Bild zweimal das Tempo erhöht 
wird. Dies kann verändert werden, in- 
dem man die BEEP-Befehle in den Zei- 
len 140 bis 240 verändert. Auch die 
Spielgeschwindigkeit und die Akustik 
von PAC MAN kann damit reguliert 
werden. 



Die Punkte werden in den Speicher- 
stellen 31827 und 31828 gescpeichert, 
und der Highscore in 31824 und 
3 1 825, um vor dem RUN-Befehl sicher 
zu sein. 

Mit POKE 23606,8 wird CAPS LOCK 
so eingestellt, daß jeder Buchstabe als 
Großbuchstabe eingelesen wird. 
Gesteuert wird mit den Tasten Z, X, P, 
L und Q, um den Spielablauf zu unter- 
brechen. Nach der Q -Taste kann das 
Spiel durch Drücken von > A< abgebro- 
chen oder durch eine andere Taste 
wieder fortgesetzt werden. 



100 

110 

120 

130 

140 

150 

240 

250 

260 

270 

280 

290 

300 

400 

420 

430 

440 

450 

500 

540 

550 

560 

600 

610 

620 

630 

650 

999 

1000 

1010 

1020 

1030 

1040 

1050 

1070 

1080 

1090 

1100 

1110 



,6 



CLS : PRINT CHR* ÜSR 31002 AND 

PRINT #1;AT 0,8;"tf BY ALEX «ALTERNAT 1, 

PRINT ÜSR 31164 

IF NOT PEEK 31829 THEN GG Tu 400 

IF PEEK 31834 THEN BEER .02,0; BEER .02 

IF PEEK 31833)128 THEN BEEP .01,0: BEER .01,6 

BEEP .02,12 

THEN GG Tu 120 
IF a$<>"" THEN 60 T0 260 
IF a*="" THEN 80 T0 270 
80 10 400 
B0 T0 1 120 



l: n 8900 AU6SBUR6 



j 



IF INKEY*<> H Q" 
LET a$=INKEY$: 
LET a*=INKEY*s 
IF a*="A" THEN 
IF a$<>"(1" THEN 



SO TO 120 



POKE 22562,67: 

REM ENDE 

LET P=PEEK 31B27+PEEK 31828*256 

LET H=PEEK 31824+PEEK 31825*256 

PRINT AT PEEK 31860, PEEK 31861; 

F0R X = l T0 200: NEXT X 

IF H<P THEN 80 T0 600 

PRINT #1; AT 0,0;"PUNKTE : " ,P , "HIGHSCORE :",H5TAB 31; 

IF INKEY*<>"" THEN 80 T0 550 

PAUSE 0; 60 T0 100 

POKE 31824, PEEK 31B27 

POKE 31825, PEEK 31828 
PRINT #ljAT 0,0;TAB 10; FLASH 
PRINT #1," NEUER HIGHSCORE 
60 T0 550 
REM ANFANG 

POKE 23675,87 
POKE 23676,127 

CLEAR 30977: LÖAD ""CODE 30978 
0s BORDER 0: CLS 
BRIGHT 1: POKE 23658,8: REH CAPS C0CK 
PAPER 3,, TAB 10;" PAC MAN " m 
BEWESÜNS:" 



Es kann passieren, daß während des 
Spiels ein Punkt verlorengeht. Daher 
kann durch Drücken von >M< in Zeile 
1 links ein Punkt eingesetzt werden, 
wenn alle Wege abgefahren sind und 
dennoch keine neue Phase beginnt. 
Bei Beginn einer neuen Runde wird 
zuerst eine Pause von 4 Sekunden ge- 
macht. 



1 



QRATULI 

m i . p . 



ERE"? 



PAPER 
IHK 7: 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



"OBEN 
"UNTEN 
"LINKS 
"RECHTS 



pn. 

L" 
Z-j 

X" 



12 



- Computronic 



JKashsfc- 



^^mS, 



1120 PRINT '"PAUSE : Q" 

1130 PRINT ""NACH Q KANN HAN" 

1140 PRINT '" DAS SPIEL FORTSETZEN" 

1150 PRINT '"MIT A DAS SPIEL ABBRECHEN" 

1160 PRINT '"MIT M DAS SPIEL FORTSETZEN ,"," WOBEI EIN ZUSAETZLI CHER" , " 

PUNKT EINGESETZT WIRD" 
1170 PRINT #1;AT 1,0; INK 0; PAPER 4;TAB 7;"DRU£CKE EINE TASTE "; 
1180 PAUSE 
1190 GO TO 100 

Programmteil 2 

3000>REM Eingaberoutine fuer das 

3010 REM Maschienenprogramm "PACMAN" 

3020 REM 

3030 REM 

3040 REM Am besten erst dieses Programm 

3050 REM eingeben und dann damit die Werte einpoken. 

3070 REM 

3080 REM Nach dem Starten wird die Spei therstelle 

3090 REM und der bisherige Wert angegeben, 

3095 REM 

3100 REM Bei einer Eingabe groesser als 256 

3110 REM wird der alte Wert belassen. 

3115 REM 

3120 REM Mit einer Zahl kleiner als 

3130 REM geht man um eine Speicherstelle zuruecfc, 

3140 REM um sie zu kor i gieren. 

3150 REM 

3160 REM Und mit 10000 wird abgespeichert. 
3170 REM 

3180 REM Wenn die Control werte nicht stimmen 

3190 REM dann hast du einen Tippfehler gemacht ' 
3200 
- 3210 

4000 CLEAR 30977: LET a=3097B: REM *** DAS CLEAR IST WICHTIG *** 

4040 LET Ci=A: LET C2=A: LET C3=A: LET X=-l 

4050 LET X-X+l 

4060 LET C = A + X: INFUT <C; " (";PEEK C);") ";Z 

4070 LET Z = INT Z: IF Z=10000 THEN GO TO 5000 

4080 IF Z>255 THEN LET Z=PEEK C 

4090 IF Z<0 AND X>0 THEN LET X=X-1: LET Z=PEEK (ft+X) : LET C1=C1-Z; LET C2=C2-Z+ 

2#Z*(C<>2*INT <C/2) ) : LET C3=C3-Z+2*Z* f C=2* ( INT C/2) ) i GO TO 4060 

4100 POKE C,Z; PRINT C; " - " ; Z 

4200 LET C1=C1+Zj LET C2=C2+Z-2*ZMC<>2*INT (C/2)): LET C3=C3+Z-2*Z* CC=2* ( INT C/ 

2)) 

4210 IF X<99 THEN GO TO 4050 

4300 PRINT "SUMME : ";Ci'"l. DIVERENZ : " ; C2 ' "2. DIVERENZ : "}C3" 

4400 INFUT "ALLES IN ORDNING ? <Y/N) " ; A* 

4410 IF A#="N" OR A*-"n" THEN GO TO 4060 

4420 IF A*<>"Y" AND A$<>"y" THEN GO TO 4400 

4430 LET A=A+100: GO TO 4040 

4500 

5000 PRINT "*******## WICHTIG ***##**#*» 

501 PRINT " NOCH ""VOR"" DEM NEULADEN " 

5020 PRINT. " *** CLEAR 30977 *** EINGEBEN" 

5030 PRINT "SONST LERNST DU UNTER UMSTAENDEN DAS FLUCHEN" 

5050 SAVE "PAC CODE" LINE 4060 

5060 SAVE "PAC CODE"CODE 30978,1790 

Computronic : ; 13 





#?p|8^ 














































£A_xi — — 

30978 


•IT"! 
Z O / 


111 


178 


186 


_,. ^_ 


14 


62 


1 


50 


143 






309S8 


7 z. 


122 


215 


a z 


4 


50 


143 


92 


122 


201 






30993 


245 


215 


241 


201 


46 





14 


1 


62 


8 






31008 


205 


177 


121 


33 


159 


124 


1 


96 


1 


9 ? 






31018 


144 


62 


4 


50 


143 


92 


175 


205 


9 


121 






3 1028 


205 


z 


121 


11 


237 


111 


35 


120. 


177 


T' r 5 






31038 


241 


62 


3 


14 


15 


46 


10 


205 


177 


121 






31048 


62 


7 


50 


143 


92 


58 


Q ET 


124 


167 


7H 






31058 


2 


62 


4 


71 


5 


40 


5 


62 


161 


215 






31068 


24 


248 


62 


71 


50 


116 


39 


50 


107 


89 






SUMME : 


40497 




1. DIVERENZ 


: 31 


237 




2.DIV 


ERENZ 


i 21459 






31078 


50 


129 


90 


50 


158 


90 


50 


33 


83 


50 






31 088 


62 


88 


33 


121 


124 


17 


83 


124 


1 


38 






31098 





237 


176 


201 


221 


126 


n 


133 


254 


255 






31108 


32 


-\ 


62 


21 


254 


22 


T n 
Ol 


1 


175 


111 






31118 




126 


t 


129 


230 


31 


79 


229 


38 









31128 


41 


41 


41 


41 


41 


6 


88 


9 




225 






31138 


26 


254 


4 


201 


254 


66 


200 


254 


69 


200 






31148 


50 


143 


92 


62 


144 


245 


62 


— 1 <-j 


215 


125 






31158 


215 


121 


215 


241 


215 


201 


221 


■I> ■ 1- 


91 


124 






31168 


6 


4 


197 


rjrj | 


110 





221 


79 


1 


221 






SUMME : 


42052 




1. DIVERENZ 


: 31 


04B 




2. DIVERENZ 


j i9904 






31176 


126 


4 


205 


166 


121 


175 


50 


86 


124 


205 . 






31138 


191 




205 


126 


121 


7 


36 


221 


110 









31198 


221 


78 


i 


58 


86 


124 


167 


T -~1 

• j Z 


Cr 1 


60 






31208 


50 


86 


124 


22 1 


126 


"7 


167 


32 


12 


205 






31218 


9 


122 


J ?*7 1 


119 . 


z 


175 


221 


119 


T 


24 






31228 


217 


205 


9 


122 


221 


119 


7, 


. 175 


221 


119 






31238 


rj 


24 


205 


197 


5B 


120 


92 


79 


58 


82 






31248 


124 


230 


31 


71 ' 


10 


169 


50 


82 


124 


230 






31258 


i 


193 


192 


61 


201 


9 *? 1 


126 


<7 


Z Jl 1 


68 






31268 


221 


119 


v 


22 1 


126 


ö 


T7T 


68 


221 


119 






SUMME : 


42466 




1. DIVERENZ 


: 31078 




2. DIVERENZ 


5 19490 






31278 


~7 


24 


165 


205 


191 


123 


221 


119 


4 


58 






31288 


87 


124 


50 


143 


92 


62 


160 


205 


177 


121 






31298 


221 


117 





221 


113 


i 


17 


5 





193 






31308 


221 


n c 




194 


194 


121 


11 1 


33 


111 


124 






31318 


IT) 


110 





221 


78 


1 


245 


205 


191 


123 






31328 


1 








122 


148 


48 


3 


•J 


24 


3 






31338 


40 


t 


4 


123 


149 


48 


7 


13 


24 


3 






31348 


40 


1 


12 


221 


126 


2 


237 


68 


135 


32 






31358 


o 


221 


119 


o 


Zi. 1 


126 


7 


977 


68 


184 






T1 7AO 


■J z 


>. 


991 


119 


3 


58 


37 


124 


103 


62 






SUMME : 


40526 




1. 


DIVERENZ 


', 


ins 




2 B D I l 


'ERENZ 


: 21430 






31378 


160 


205 


39 


123 


205 


191 


123 


241 


■n *~t 4 




-■ 




31388 


116 


124 


1 


254 


254 


175 


237 


104 


203' 


77 






31398 


T 1 

-Ji Z 


1 


61 


203 


85 


32 


1 


60' 


87 


175 






31408 


6 


107 


237 


104 


203 


69 


32 


1 


°i 









31418 


191 


237 


104 


203 


77 


■7 n 
--1 z 


1 


60 


66 


79 






31428 


62 


161 


221 


54 


4 - 





38 


70 


"205 


89 






31438 


123 


221 


126 


4 


221 


54 


4 





205 


h 






31448 


123 


58 


88 


124 


167 


40 


20 


61 


50 


88 






31458 


124 


6 


69 


254 


10 


48 


6 


230 


7 


32 






31468 


2 


6 


66 


120 


50 


87 


124 


62 


71 


50 






SUMME : 


40949 




1. 


DIVERENZ 


: 3 


1075 




2. DIVERENZ 


: 21007 




14 
























Compu Ironie 



s^w 



31478 


143 


92 


14 


15 


46 


12 


62 


8 


205 


177 


3i488 


121 


237 


75 


83 


124 


201 


254 


67 


40 


18 


31498 


254 


71 


192 


42 


83 


124 


17 


30 





25 


31508 


34 


33 


124 


62 


30 


50 


88 


124 


42 


83 


31518 


124 


17 


5 





25 


34 


83 


124 


42 


89 


31528 


124 


43 


34 


89 


124 


124 


1S1 


192 


42 


83 


31538 


124 


229 


58 


85 


124 


245 


205 


26 


121 


241 


31548 


225 


50 


85 


124 


6 


200 


118 


16 


253 


14 


31558 


100 


9 


34 


83 


124 


33 


43 


45 


209 


235 


31568 


167 


237 


32 


235 


32 


248 


229 


24 


154 


245 


SUMME : 


41226 




i. DIVERENZ 


: 31180 




2. DIVERENZ 


! 20730 


31578 


229 


197 


221 


110 







78 


1 


221 


126 


31588 


4 


205 


166 


121 


217 


221 


70 


■j' 


221 


78 


31598 




209 


122 


179 


40 


31 


122 


131 


203 


71 


31608 


32 


10 


120 


167 


32 


1 


95 


121 


167 


32 


31618 


1 


87 


221 


115 


*7 


221 


114 


3 


217 


205 


31628 


126 


121 


£. 1 / 


40 




75 


66 


221 


112 


3 


31638 


221 


113 


■-s 


217 


221 


110 





221 


78 


1 


31648 


205 


126 


121 


"7 *"S 

oz 


9 


221 


110 





221 


78 


31658 


1 


221 


126 


4 


221 


117 





221 


113 


1 


31668 


221 


119 


4 


241 


50 


143 


92 


241 


195 


177 


SUMME' ; 


43059 




1. DI 


VERENZ 


: 31199 




2. DIVERENZ 


: 19897 


31678 


121 


*5 7"? 


91 


116 


124 


.97 


229 


167 


237 


82 


31688 


225 


192 


58 


88 


124 


167 




68 


193 


193 


31698 


58 


85 


124 


61 


50 


85 


124 


202 


243 


122 


31708 


198 


13 


79 


46 


10 


205. 


149 


121 


175 


1B* 


31718 


2^ 1 


33 


91 


124 


6 


6 


. 197 


221 


110 





31728 


221 


78 


1 


221 


126 


4 


205 


166 


121 


193 


31738 


17 


5 





221 




16 


235 


17 


91 


124 


31748 


•-'3 


129 


124 


1 


30 





237 


176 


6 


40 


31758 


118 


16 


253 


i95 


243 


122 


42 


83 


124 


17 


31768 


100 


o 


25 


34 


83 


124 


221 


126 


4 


205 


SUMME ; 


42494 




1. DIVERENZ 


s .32 


370 




2. DIVERENZ 


: 20462 


31778 


6 


123 


221 


54 





1 


221 


54 


1 


1 


31788 


42 


116 


124 


124 


214 


11 


56 


5 


125 


214 


31798 


15 


48 


8 


221 


54 





20 


221 


54 


1 


31808 


30 


221 


110 





221 


7B 


1 


2Ö5 


149 


121 


31818 


221 


119 


4 


195 


75 


123 














31828 
































31B38 


ö 





























31848 
































31858 





























4 


31868 





66 





84 


i 


n 
£ 


4 


1 








SUMME : 


35868 




1. DIVERENZ 


i 31042 




2. DI 


,'ERENZ 


i 27088 


31878 


1 


27 


1 








17 


5 


1 








31888 


15 


26 


1 








5 


13 


1 ■ 








31898 


19 


15 


255 








89 


153 


153 


153 


217 


31908 


128 


25 


153 


153 


156 


i 


157 


153 


153 


153 


31918 


156 


96 











96 








Ö 





31928 


6 





6 











6 


96 


89 


153 


31938 


192 


96 


64 


64 


24 


4 


6 


4 


6 


5 


31948 


152 


4 


6 


96 


96 





96 


32 


96 


96 


31958 





6 


6 


6 


/-i 


2 





6 


6 


96 


31968 


96 


64 


96 





96 


96 


64 


26 


2 


6 


SUMME ! 


36396 




1. DIVERENZ 


: -32024 




2. DIVERENZ 


: 26560 



Computronic 



15 



i — — " "^'i* 


%M 




















r^inc^ 




















\ ^ l vSgc 




















\jyj¥£^ — 


31978 








4 


6 


6 


96 


32 


96 


32 


Z..J 


31988 


160 


32 


96 








3 


153 


153 


154 


9 


31998 


6 


96 





96 














57 


153 


32008 


156 

















6 


96 


25 


189 


32018 


128 


64 


39 


128 








3 


156 


4 


1 


32028 


217 


152 


6 


96 





6 





96 


96 





32038 


89 


156 





6 


6 





96 





6 


57 


32048 


152 


*? 


1 


160 


96 


89 


175 


243 


156 


6 


32058 


3 


128 


96 


25 


154 

















32068 


32 


111 


255 


255 


246 


n 








96 





SUMME : 


37549 




1. DIVERENZ 


: 315 


85 




2. DIVERENZ 


: 25407 


32078 





89 


153 


152 


1 


192 





111 


255 




320SB 


246 





5 


128 


57 


156 


4 


96 


ö 





32098 





57 


128 


111 


255 


255 


247 


153 


154 





32108 





6 


6 


96 


89 


128 


64 








57 


32118 


217 


153 


154 








4 


4 


6 


6 


96 


32128 


96 





96 


89 


128 





96 








1 


32138 


156 


6 


6 


6 


6 


96 


32 


64 


96 


96 


32148 





64 


96 


25 


152 





6 


6 


2 


r\ 


32158 


6 


96 





96 


96 


96 


64 


96 


7i 





32168 





4 


6 


6 








6 


121 


153 


160 


SUilME : 


38785 




1. DIVERENZ 


: 319 


23 




2. DIVERENZ 


s 25171 


32178 


96 


96 




32 





88 


4 


2 


6 


6 


32188 


1 


153 


158 


96 








96 


96 








32198 


64 


96 


6 





6 


6 








6 


96 -. 


32208 


25 


128 


32 


32 


25 


128 


32 


96 


27 


152 


32218 


2 


2 


1 


152 


6 


96 














32228 











96 




















32238 


6 


57 


153 


153 


153 


153 


128 


25 


153 


185 


32248 


152 


1 


153 


153 


153 


153 


154 


Ö 


33 


15 


32258 


91 


126 


35 


34 





91 


111 


60 


200 


38 


32268 





41 


41 


41 


237 


75 


54 


92 


9 


62 


SUMME : 


37823 




1. DIVERENZ 


: 31415 




2. DIVERENZ 


: 26133 




inic 


— | Oil-Ps 


~| 


















1 



















Topprogramm 

Die beliebte Spielversion, die 
defekte Ölleitung, jetzt auch 
für den ZX-Spectrum 48 K. 



Oil-Panic läuft jedoch auch auf der 
16 K-Erweiterung, wenn die An- 
fangsmelodie, also Zeile 20-55, 
nicht eingegeben wird. 

In der Spielversion erscheint eine Fi- 
gur, welche vom Spieler gelenkt wird. 



16 



Dieser muß versuchen, möglichst viele 
Tropfen aufzufangen, die aus einer un- 
dichten Ölleitung heraustreten. Auf- 
gepaßt - denn der Eimer, der zum auf- 
fangen der Tropfen da ist, ist mit nur 
vier Tropfen gefüllt. Wieviel Tropfen 
im Eimer sind, wird hinter „GEFAN- 



Ifr-r : ; .™ . ■ "™j 



Computronic 



GEN" angezeigt. Ist genügend Öl auf- 
gefangen worden, muß es in den Behäl- 
ter des unteren Männchens gegossen 
werden. Diese Figur bleibt jedoch 
nicht unbeweglich stehen, sondern er- 



schwert das Umgießen durch ständi- 
ges Herumlaufen. Für das Auffangen 
eines Tropfens bekommen Sie 2 Punk- 
te. Für einen vollen, umgegossenen Ei- 
mer 10 Punkte. Wird der volle Eimer 



a^g£ 



daneben geschüttet, fällt die Spielfigur 
an der jeweiligen Seite herunter. Läuft 
der Eimer über, oder wird das kostba- 
re Öl vergossen, wird ein Spielversuch 

abgezogen. 



m Oi t -Pan i c © 

igi Oliver KUfth w 



to 



© '# 



10 CL5 : ©Ol 

20 BEEP 1,0 
i: BEEP ,5,S 
3 EEEP 1,0 

' : BEEP i S ,i ml 
35 BEEP 1,3 

4.0 BEEP 1,3 

4.5 BEEP ,7S,7: BEEP .25,8: BEE 



EP. 1 


POKE 2 37 


-•B , 


BEEP 

BEEP 
BEEP 
BEEP 
BEEP 


1,2 

1 , 

1 , a 
l , O 
1,5 


•BEEP' 

BEEP 
BEEP 


-5 

S 
2 , 


BEEP 


1,3 


BEEP 


2 , 



BEEP 



P .5,7 

EP . S,2: BEEP 1,0 

5© BEEP .75,7: BEEP 



BEEP .5,3: 8E 



.25,8: 6 E E 



p 



. ö , 7 



BEEP „S,S: BEEP .5,3 



BE 



EP . S , £ : BEEP 1 , O 

ÖS JSCEP 1,0: BEER 1,-B: BCEP S 
,0: BEEP 1,0: BEEP 1,-5: BEEP 2, 



gg C l™ S 

100 FOR a «14.4. TP 164: FOR b=Ö T 
O "7; READ C: POKE USRCHR* a + b , c 
: NEXT b: NEXT a 

101 DRTfl SB , 4-1 , 14© , loa , 1B8 , 14B , 
4-1 , BS 

102 DATA 255 , 137 , 147 , 165 , 201 , 14 
& , 1© % , 193 

103 DRTfl fflE© , £55 ,©,3», 0,0,0,0 

104- DRTfl , , , e t o / , aie , SBS 
1.05 DATA 64,97,50,145,117,24,36 

*"^* (-5' ft*' 

' 106 DATA , 126 , 165 , 145 , 18S , 12& , 

R4 , 24- 

107^ DATA 108 , ISS , 138 , 186 , 1B8 , 40 

' 108 DflTPi 0, , , 0, ©,50 , 60 , 2SS 

103 DRTfl £55,195,50,195,60,195, 
60 , £SS 

110 PflTH 0,0,13S,lSg,129jlS9,XS 
6 , 

111 DflTPi 16,56,56,56,16,355,169 
, 3S5 

HS DRTfl 56 , 70 , 101 , 14S , 153 , 165 . 
10£,£4 

113 DRTfl 4,9,146,85,74,160,120. 
XS0 

■114 DRTfl , 30, 1 , 7, 1S7, aas , 19S ,6 
4. 

115 DRTfl 0,120,192,253,135,123, 

ii© drtr 9 , is , +© , iss , sss , ass , 10 

4 .. 4 i3 

117 DATA 39 , 100 , 1©4 , ©0 , Ol , 155 , 1 
@S , 44 
, 11§^ DRTfl 56, 134 , 25S , . 134 , 3*54 , S 

44 , JaÜaJlS . - . 

119 DflTR 

3 , 10S 

1S0 DRTfl SO , 6S , S5S ,0,6g. 1S7 , 4? . 
251 .... 

IS 1 DRTR 9,3 , £8 , SÖ0 , 62 , 3© , 2 1 . 18 • 
10S 

300 CLS : BORDER RND*4: PRINT R 
T Ö,a; "Score : " ; AT , 20 ; " L i v «s s 
" .; AT 1,9; "Cefa n gen ; " 

310 FOR *i*:0 TO 31: BEER .01, 4©: 



, 56 , 19 , 124 , 1$4 , 4-0 , 7 



PRINT AT S 



AT 



Nl 



KT 3: PRINT AT 4 . ; , 'wM" J AT S , .; " 
J" ;«T 4,30; "Mfc"; AT 5™1; "fc" ' 
• it 3S0 P R 1 NT AT 3,9; " ü " ,; AT 3 ,17; " Ü 

3 30 FOR b«4 TD 28: BEEP .©03.20 
: BEEP .01,30: PRINT AT 9,b;"X"j' 

AT 1 1 , b .; " K " ; AT l a , b ; "fc " ; RT lö , b ; 
"A" : NEXT b 
340 FOR c aS TO 26 STEP 4: BEEP 

c;"ä";AT 19, c .; "ä" ; AT £0,c;"ä" : N 
EXT c 

350 PR INT AT IS , 3 ; " % " ; AT IS , 80 ; 
"§ " ; AT IS, 3; "ü" ; AT 19 , 29; "ü"; AT 
£0,3; "tf"; AT £0,29; "0": FOR t «0 1 



PRINT AT 



T 

ai,t 



O 31 : BEEP . 01 . SS! : 

; " V : NEXT t 

i( 3S0 PRINT AT 8 , 16; "SJ" ; AT 7,16; 

400 LET DFaUflL "1": LET AT «UAL 
"9": LET UsUflL "9": LET A-UAL "1 
6": LET BssURL "8": LET C«URL "IS 
": LET D«UAL "10": LET X=«UAL "0" 
: LET LlUsUfll "1©": LET SCOsUflL 
"0": LET GEFsUflL "0" 

498 LET Fsk'JAL "4" 

4.99 LET Es« INT (RND*15) 

E0Ö XF INKEY$»"S" THgN LET A»A + 
2: BEEP ,005,50: PRINT AT B,A;"S 
"JflT 7,A;"R";AT B , A+l; ".J" ; AT B,R 
-S;" ":AT 7..A-2;" •■ .; AT B,A~3;" 

501 IF SCO > URL "©0" AND DF=UAL 
"1" THEN PRINT AT 13, 11; "SonUiPU 
nds": FOP V»© TO S: BEER ,04,3S: 

BEEP .07,40: BEEP .1,4.5: BEEP . 
S , B : N E XT V : L ET L XU * L IU +U AL "3 
" • PPINT AT 1^ 11' " " • 

LET DFssUAL "0 r * : 06 TO UAL "500''' 

502 IF ÖEF>UAL "4" THEN LET G£F 
= UAL "0": LET LIUssLIU-UAL "1": L 
ET SCÜ »SCO -URL "2" 

503 PRINT AT 0,10; SCO; AT 1,19;G 
EF;AT 0,29;" " ; AT 0,29;LIU 
M 304. PRINT AT 9,9;"I M ;AT 9,17; "I 

B0S IF INKEY*s"S" THEN LET A«R~ 
2: REEP - 0C?1R . 4R ■ PRTNT AT R.A:"M 

";AT 7,A;"T";AT & , A -1; "j" ; RT " S , R 

+1 , " " ; AT 7, A+a; " " 

S0Ö LET Q « INT (RND*S> 

507 BEER »001,40 

SOS IF X = l AND Ö =1 THEN GO TO 9 

00 

S09 IF LIU=UAL "0" THEN 00 TO U 
AL "3000" 

BIß IF X«0 AND G«l THEN LET D«D 
+ S: BEEP .00S, £20: PRINT AT 14 , D i 
"R",;AT C , D; "Sü" .; AT C,D-3; " ";A 

r i4,D~a;" ■■ : xf D>a? tmen "let x 

"Sil LET AT »URL M 9" 

SIS IF INKEVt.s"0'* AND AaUAL "28 
" THEN GO TO UAL "3100" 

51S IF INKEV*-"*" AND A»UAL "4" 

THEN Q0 TO UAL "3200" 

Siä0 IF Ai-UAC "325" THEN OO TO 'JA 



L "3!s 

SS.1 IF A<UAL 

"360©" 

60ö IF EsUAL 

"920" 

O01 IF B»UftL 

"950" 

603 IF E>URL 
HEN OO TO URL 



"4" THEN GO TO UAL 
" 1" THEN GO TO UAL 
"S" THEN OO TO UAL 

'S" OR E<UAL "1" T 

"4.98" 
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300 GÖ TO URL "SO®" _ _ 

O0C3 LET DaD-UflL "2": BEEP .305, 
30: PRINT RT 14. , D ; "T " i RT C,D~1;" 
JU";flT C/D + lJ" "jflT 14-,D+;2j" " 

IF D<5 TUEN LET X~0 

909 QO TO URL. "S00" 

9S0 LET r«F+URL "1": BEEP ,0U2 
öT" PRINT RT F,9;"P": IF F > 4. THEN 

PRINT RT F-1,9;" " 

981 IF F<URL "3" THEN GO TO SO© 

9SG IF fl+yflL "l"»yflL "©" OR R-l 
sUflL "9" FIND Fs=URL "O" THEN LET 
SCOsSCO+URL "3": LET SEFsGep'+URL. 

"1": PRINT RT S , 9 ; " J " : GO TO UH 

L flaS 9 IF F=URL "9" THEN PRINT RT 
F,9.;"X"s LET L XU «LIU -URL " 1" : CO 

TO URL "4.99" 

930 OO TO URL "C©0" 

■950 LET r«r +URL '"1": BEER iBX,4 
6: PRINT RT Fil7i"P": IF F*4- THE 
N PRINT RT F-i, 17; " " 

«• ; pt* ?,Rj "T";pt B,R-i;"J";nT b,r 

+ 1, " " ; RT 7,R+2; " " 

300 L ET Ö = I NT "! R N D * 2 > 

SO 7 BEER .001^ 4- 

SOS IF X=l RND Gsl THEN GO TO 9 



_509 Ä IF.LIU=UflL "0" THEN GO TO U 

fl 5li a iF X*0 RNC G«l THEN LET D«D 
+ fi : BEEP . 00S , SO : RR INT RT 14 , D .; 
" R " ; RT C , D ; " S.J " ; RT C , D - 3 ; " " ; R 

T l^O-a;" ": IF D>87 THEN LET X 

= '1 
1=111 1 ET RT sUflL " y 

515 IF 1 INKEY * = "©*' RND fisUflL "2S 
" THEN QO TO URL "3100" 

516 IF INKEY * * " 4. " RND R -URL " 4. " 
THEN GO TO URL "3£00" 
RgO if R> URL "SB" THEN GO TO UR 



L. ■'y»00' . 

581 IF R<URL 

"3500" 

60 IF E«URL 

"920 " 

601 IT Es URL 

"9S0" 

803 IF E>URL 
HEN GO TO URL 



4." THEN GO TO URL 
1" THEN GO TO URL 
Ö" THEN QO TO URL 



4.98" 



DR E<URL "1" T 



S0Ö 

30 : 

UU" .; 
IF 
90© 

923 

0: P 

PRI 

921 

9SO 

= URL 

5COs 

"1" 

I... "4. 

9 SS 

F ., -S» ; 

TO 

■330 

990 
g, . p 

N PR 



9 



GO T 
LET 
R I NT 
T C, 
D<5 
GO T 
LET 
INT 
T RT 
IF F 
IF- R 
"9" 

ico+y 

PRI 
B" 

IF F 
I" : 
' R L " 
GO T 
LET 

:INT 
:nt r 



O URL " 
DsD-UflL 

RT 14. , 
D + i; " 
THEN LE 
O URL " 
Fs=F+ URL 
RT F , 9. ; 

F - 1 , 9 ; 
(URL "8 
+ URL " 1 

RL "2" : 
NT RT 8 

sUflL "9 

LET LIU 

493 " 

O URL ■' 

FsF+VflL 

RT F , 17 

T F - 1 , 1 



500" 
" o " • 

D ; "T " 

" .; RT 
T Xb© 
500" 

" 1" : 

;;p;; : 

" THE 

" «URL 

RL " 3 

LET 

, 9; " J 

" THE 
«L.IU- 

500" 

" 1" : 

; "P":, 
7 .! " 



BEEP .0ÖS, 

,; RT C , D - 1 ; " 

14-, D+£; " " 



BEEP .01,2 
IF F>4 THEN 

N GO TO EGO 

•■ «3 " OR R - 1 
" THEN LET 
QEFsiSEF+URL 
" : GO TO UR 

N PRINT RT 
URL " 1" : GO 



BEEP .©1,4. 
IF FJ-4- THE 



9 F. 3 IF F <% THEN GO TO 500 

955 IF fl + laUPL "17" OR Pzl-^ 1 . 



"17" RND Fs=URL " 
SCO + URL "2" : LET 



PRINT 

498" 

960 IF 
F , 17.; " I" 
O TO URL 



RT 



e , r 



L 
THEN LET SCO* 
5EF=»OEFtURL " 1 " 
" J" : GO TO URL " 



Ö7Q GO TO URL "500" 
300-0 FOR S.»0 TO 3: FÜR U-0 TP g; 

P'EFP . öS , 0© : BEEP . 85 , 4-Ö : BORDEF 

R N D * © : NE XT £- : N E KT U 
3010 FOR K«0 TO 20: BEEP .008..K: 

BEEP . 1 , K : BORDER RND *6 : NEXT 

30S0 PRINT RT 13, 11; ,l — — — ":■ 
RT 14. , 1 0JV.V3 a )'•> e # O v « r «■ ' ' .; RT" IS. 11. 

: -; O 3 BEEP 1 . 1 : BEC P 1 , £5 : 13 E E P 1 
T 7 • B E E P - F5 '. S : B E E P - 5 , 6 : B E E P . 
5 , 6 : " B E E P . i , ä- : E E E P . 1 , A : B E E P 

. Fi 9 , 1 : BEEP ., 09 , 1 : BEEP ■ 06 , S : E 
HER '. 6 . S : BEEP - ©6 , SS : BEEP . ©4- , 
; B & E P ' . 4. j : B EE P « + , : B E E P 
.' 1 > - 2 : B E E P - .01 , ■- 2 : B E E P .01; ~ 2 
i"=i 3 S C L S : P R I NT RT 1 1 ,, 9 ; * ' N u C H E Z 
N M R L '? ' ' ; R'T 3 . 5 .; ' ' P u n K % e er r e i c h t : 
; SCO ; PAUSE' 4E4 _ 

30 4 I F I N !< E Y * = " . j ' ' T H E N G T u 3 C 



SO SO STOP 

3 100 PRI NT RT 8,39; " O " 

3 1 5 L ET RT ss RT + 1 : D E E P 

PI NT RT RT.,29; "P" : IP R 
NT fiT flT _ .^ _ g g . ■ , . . 

r-i 1 6 I F R T = U R L "IS" H N D 

S ' ' R N D G E F ■'.. U PiL " G r H £ N 

L. I U - U R L " 1 " : G O T O U R L 
n 1 9 I F RT * U R L " 1 Ü? " R N D 
ä" RND QEF>URL " 
::> C O + 10: PRI NT RT 



Ö£ , ;S9 : P 
9 THEN F 

Da URL "£ 

LET LIU= 

S ' ' 

D^URL "£ 

THEN LET 3CO= 

13 ., H9j •"'-'■■ : 



sUflL "9" 
LET LIU 
"4-93" 



THEN PRINT RT 

:LIU-UflL " 1" : G 



G E F s U R |„ " " : F O R h ™ 1 T 5: B E E P 
„01, 10 : BEEP - 06 ., 30 : BEEP . 1 , 30 : 

NEXT h : GO TO URL "S00" 
3 1 1 © I F ATsUflL "17" T H E N P R I NT ft 
T RT.S9; "M": BEEP .01, SO: BEEP . 
1,60: BEEP .01,30: LET LIU«-LIU-L 
flL "1": LET OEF=UfiL "0": PRINT P 
T . 29 ; L IU ; RT 1 , 19 .: GEF ; RT 17 .. 29 ; 
" " • GÖ TO URL "500" 
r-ill5 GO TO URL "3:1.05" 
3 2 © O P R I NT RT S , 3 .: " N " 

3S01 LET RTwRT+UflL "1": BEER * 0£ 
, 20 : PR INT RT RT ,3} " P " : IF RT > 9 
THEN PRINT RT flT-1,3; " " 
32G):3 IT RTsURL "IS" RND D-URL "4 
" RND GEF < URL "3" THEN LET LIU*L 
IU-URL "1": GO TO URL "500" 
32ÖS IF RTssURL "IS" RND DsURL "4 
" RND GEF > URL "2" THEN LET SCO-S 
OO+URL "10": PRINT RT lS,3j".J": 
LET QEFaURL "0" : FOR t=l_TÜ Ö: E 
tfcM .01,2: btEH .W6,1S: BttP . 1 .. 
2S: NEXT t: GO TO URL "500" 
3210 IF fiT »URL "17" THEN PRINT fi 

T RT,3;"H": BEEP .01,60: BEEP .1 

,60: BEEP .1,60: LET LIUsLIU-UflL 

"1": LET GEFaURL "O": PRINT RT 
17,3.;" ";PT !,19jGEFjRT 0,S9.;LIV 

: GO TO URL "500" 

33 15 GO TO URL "3301" 

3500 FOP 0=9 TO 17: BEEP .01 

PR INT RT O , 2 9 .; " L " ; RT Q-1,29; 

RT 0-S)S9," ": NEKT O: Bis EP 

Oö: B£CP .01,30:- BCCP -01,S7 

EP .Ol, ÖS: BEEP .01/39: BEEP 

.60: PRINT RT 16,39;" " ; RT 1 

j " ": LET LIUaLIU-UfiL "1": LET G 

EFsUflL "©": PRINT RT ,29; LIU; AT 

1 . IQ ' CEF 
3S0S GÖ TO URL '"500" 

3Ö00 PRINT RT es,©;" "jflT ?jBj 
": FOR UsTQ TO 17:' BEEP , 1 , <* 

: PR INT RT U , 3 .i " L " \ RT U - 1 . 3 .; " Q " ; 
RT U-S?:.. 3J" ": NEXT U: BEEP . 01,5 
ES: BEEP .1211,52©: BEEP . 01,5S7: BEE 
P .01, 53 : BEEP ,01,BS: BEEP . O 1 
60: PRINT RT 16,3; " " ; RT 17,3;" 

- ; LET LIU -LIU -URL "1": LET GEF- 
ÜHL " " : PR INT RT © , S9 . L IU ; RT 1 

19j GEF 

rs601 GO TO URL "500" 



O : 

" ,; 
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Panik-Labyrinth ist in erster Linie ein Strate- 
gie- und Übersichtspiel, das Können und 
Kombinationsgabe vom Spieler erfordert. 



Sie befinden sich in einem Laby- 
rinth und werden von einem Geist 
gejagt. Jede Sekunde, die Sie 
überleben, bringt einen Punkt, 
aber, im Labyrinth liegen auch 
Schätze in Form von Gold-Dollars, 
die, wenn Sie welche einsammeln, 
jede Menge Punkte bringen. 

Keine leichte Aufgabe, denn der Geist 
weiß immer, wo Sie sich befinden und 
wird Sie jagen, bis er Sie erwischt hat. 
Da er nunmal ein Geist ist, kann er 
selbstverständlich auch durch 
Mauern gehen, ohne dabei ein Loch zu 
hinterlassen. Sie sind an die Wege des 
Labyrinths gebunden. 

Damit Sie überhaupt dem Geist entwi- 
schen können, haben Sie eine Gabe, 
von der andere Menschen nur träu- 
men. Sie können sich im Nu in Luft 



auflösen und an einer anderen Stelle 
wieder erscheinen. Dies haben Sie ei- 
nem kleinen Gerät zu verdanken, ei- 
nem Transmitter; Allerdings benöti- 
gen Sie, um zu verschwinden, jedes- 
mal eine Menge Energie, so daß die 
Batterien in Ihrem Transmitter schnell 
verbraucht sind. Ihre Energie reicht 
für fünfmaliges Beamen aus. 
Ferner befinden sich in diesem Laby- 
rinth Fallen tiir den Geist. Diese haben 
die gleiche Funktion wie Ihr Transmit- 
ter, allerdings ohne Energie Verlust. 
Versuchen Sie deshalb bei Ihrem Weg 
durch das Labyrinth den Geist in diese 
Fallen zu locken, um mit dem Aufsam- 
meln der Gold- Dollar etwas Zeit zu 
gewinnen. Benutzen Sie nur in aus- 
sichtsloser Position Ihren Transmitter. 
Jedesmal bei Spielbeginn werden die 
Gold-Dollars und Fallen für den Geist 
per Zufallsgenerator festgesetzt. Somit 



Panih-LabyrintlTI 



müssen Sie sich nach jeder Spielrunde 
eine neue Strategie zurechtlegen, um 
Punkte zu sammeln. 
Ihre erreichte Punktzahl wird in HI- 
Score gespeichert. Nur wenn Sie die 
Übersicht behalten und nicht in Panik 
geraten, haben Sie eine Chance gegen 
den Geist. 

Üben Sie und lassen Sie Ihre Freunde 
und Bekannten versuchen, Ihren Re- 
kord zu brechen. 

Interessant für alle Programmierer 
dürfte die Maschinenprogrammrouti- 
ne zur Bildschirmabfrage sein. Diese 
ersetzt die umständliche Abfrage der 
Basic-Routine mit Peek und erspart 
zudem noch eine Menge Speicher- 
platz. Außerdem ist sie natürlich we- 
sentlich schneller als die Basic-Routi- 
ne und kann sogar als AT- und TAB- 
Funktion nach vorheriger Position vor 
der Abfrage genutzt werden. Im Pro- 
grammlisting finden Sie solch ein Bei- 
spiel in den Zeilen 415 bis 432. 

Steuerung: Richtung über die Cur- 
sor-Tasten. Beamstrahl wird durch 
Taste >9< aktiviert. Viel Spaß ... 



1 REM E:RND 

2 LET X=l 

3 LET RE=0 

4 GOTO 4000 
1© LET SCs0 

11 LET B*l 

12 LET Z2=2 

13 LET K2»l 

14 LET N=0 

15 LET S=0 

16 LET X$ = " " 

17 LET SP=5 

18 LET ü=16514 
20 LET Z=2 

22 LET K«30 

90 POKE 16418,0 
100 PRINT RT 0,0; "PUNKTE 0000 
REKORD 00001 



102 PRINT 




104 PRINT " 



106 PRINT "I 





110 PRINT "I 



112 PRINT "I 



i.LRBYRIN 
l.RNZ.BER 



MS 



114 PRINT *' 



116 PRINT "I 



118 PRINT "I 



122 PRINT '1 



.P IT-ZI US- 83 



124 PRINT TRB 5;"-> PRNIK-LR6YR 
INTH <-" 

126 PRINT RT 0,11-LEN STR$ SC; S 
C;flT 0,32-LEN STR$ RE; RE 

128 PRINT RT 11 , 11; B; RT 12 , 11; S 
P 

132 FOR 1=1 TO 10 

137 PRINT RT (RND*20 J +2 , (RNE>*28 
) +2; 

139 XF USR U<>128 THEN GOTO 134 

140 PRINT "W 
142 NEXT I 
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sincd^ 



zxH 



162 


FOR 1=1 TO 25 


334 


PRINT RT Z,K; 


166 


PRINT RT CRND*21) +1, CRND*26 


335 


IF USR U<>0 THEN GOTO 332 


) +s; 




337 


LET SP-SP-1 


17© 


IF USR U<>0 THEN GOTO 163 


33S 


PRINT RT 12, 11; SP 


160 


PRINT "*" 


339 


RETURN 


190 


NEXT I 


4-00 


LET Z=Z1 


20ö 


PRINT AT Z,K; "0" 


4-10 


LET K=K1 


205 


PRINT RT 0,13j "SPIEL. " 


415 


PRINT RT Z2,K2;X$ 


232 


IF INKEY$a"9" THEN GOSUB 33 


420 


LET Z2=Z2+ (Z>Z2) *1- (Z<Z2) *1 







430 


LET K2=K2+ CK>K2> *1- tK<K2J *1 


24-0 


LET Z1=Z + (INKEY*s"6" ) - < INKE 


432 


PRINT RT Z2,K2; 


Y**"7") 


450 


IF USR U=52 THEN GOTO 2000 


250 


LET K1-K+ CINKEY$="8") - (INKE 


456 


LET X$=CHR* USR U 


V»="5") 


457 


IF USR U=136 THEN GOSUB 560 


252 


PRINT RT ZI, Kl; 


460 


PRINT RT Z2,K2.:"£" 


260 


IF USR U<>23 THEN GOTO 300 


465 


IF SaSC THEN GOTO URL "2 10" 


270 


LET N=N + 1 


466 


LET SsSC 


275 


LET SC=SC+1© 


470 


LET S$=STR$ SC 


290 


GOTO URL "310" 


480 


PRINT RT 0,11-LEN S$;S* 


300 


IF USR U<>0 THEN GOTO 4-15 


540 


GOTO URL "210" 


305 


LET SC=SC+1 


550 


GOTO URL "600" 


310 


PRINT RT Z,K; " " 


560 


LET Z2=INT <RN£>*18) +1 


312 


PRINT RT Z1,K1;"0" 


562 


LET K2=INT (RND*28) +1 


320 


IF N=25 THEN GOTO URL "3000 


563 


PRINT RT Z2,K2; 


•• 




565 


IF USR UoCODE " " THEN GOT 


322 


GOTO 400 


URL ,, 560" 


330 


IF SP<1 THEN RETURN 


566 


PRINT RT Z2,K2; '*£" 


331 


PRINT RT Z,K; " " 


567 


LET X$=" " 


332 


LET Z= (RMD*20) +1 


568 


RETURN 


333 


LET Ks CRND*28) +1 


600 


IF SORE THEN LET RE=SC 




m m m mm mm mm ~ 
■'m'm'm m~m m~mm m 
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LASER 110 - 4 KByte RAM. Dieser „persönliche Computer" eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 
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680 PRINT AT 32,4.; M 



Sfflsa 



690 IF INKEY*<>"" THEN GOTO URL 

"690" 

7Ö0 IF INKEY**"" THEN GOTO URL 

"700" 

71© IF INKEY*="N" THEN STOP 

720 POKE 164-18,2 

730 GOTO URL "10" 
10Ö0 LET Z2=2 
1010 LET K2*2 
102© RETURN 
2Ö00 FOR 1-0 TO 20 
2Ö02 PRINT RT Z2,K2; "S" 
2004- PRINT RT Z2,K2;"£" 
2006 NEXT I 
203S FOR 1=0 TO 10 

2009 PRINT RT 22,4-; "SIE SIND ERU 
ISCHT UORDEN" 

2010 PRINT RT 22,4.; 



5 IE SIND ERL- 



ISCHT UORDEN 



2020 NEXT I 

2030 PRINT RT 0,11-LEN STR$ SC; S 

C 

204.0 FOR 1 = 1 TO 50 

2050 NEXT I 

2060 GOTO URL "600" 

3000 PRINT RT 22,4-; "i 
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3002 LET B=B+1 

3010 PRINT RT 0,11-LEN STR$ SC; S 

C 

3020 FOR I~l TO 50 

303© NEXT I 

3040 GOTO URL "12" 

4030 LET C$s"; 




4006 PRINT RT 8, 

4S08 FOR F=l TO LEN C* 

4010 IF INKEY*<>"" THEN GOTO 500 



4012 PRINT C$ (F) ; 

4014. NEXT F 

4.015 PRINT RT 21 , 16; " CO BY H.PIT 

ZIUS" 



4016 PRINT RT 8,0; 

40IS FOR F=l TO LEN C$ 

4Ö20 PRINT " "; 

4022 IF INKEY$<>" " THEN ÖGTQ 500 



4Ö24. NEXT F 

4025 GOTO 4S00 

5000 CLS 

5002 PRINT "PRNIK-LA 

R I N T H ■•'■^■^""■■■^^^■^ 



B Y 



5Ö04 PRINT ,,"BHRE gJUFGRBE IST E 

S,IN EINEM Lfl-BYRINTH RLLE ®ÖLDB 

ARREN >*< ZU SAMMELN. " 

5006 PRINT "SOCH ZU IHREM >Ü< UE 

BEL,DRS LR- BYRINTH UIRD UON EIN 

EM gEIST >£<@EURCHT,DER RUCH DUR 

CH DIE MRUERGEHEN KANN." 

5008 PRINT "BRMIT IHR UNTERNEHME 

N NICHT RUS -SICHTSLOS IST, SIND S 

ALLEN >!< FUER DEN GEIST AUFGE 

BRUT . " 

5010 PRINT "BERflET DER GEIST >£< 

IN EINE DER HALLEN >^< UIRD 
ER IM LRBY- RINTH UMHERGESCHLEUD 
ERT . " 
5012 PRINT AT 21 , ö; "DRUECKEN SIE 

EINE TRSTE " 

5014 IF INKEY**"" THEN GOTO 5014- 
5016 CLS 

50 15 PRINT "HHRE EINZIGE fflRFFE I 
ST EIN BEAM5TRflHL,DER SIE I 
NNERHALB SE -KUNDEN RUS DER GEFRH 
RENZONE BE- FOERDERT . " 

5020 PRINT "(gER ÜERMSTRRHL FUNKT 
IONIERT UE- DOCH NUR , ÜENN SIE UE 
BER GENUE- GEND ENERGIE UERFUEG 
EN. " 

5022 PRINT , , ÖW^Ü3kliß[rH 

5024 PRINT , , "RICHTUNG UEBER DIE 

KQRSUR-TAS- TEN." 
5026 PRINT "gERMSTRRHL UIRD DURC 
H TRSTE >9< AKTIUIERT." 
5028 PRINT ,,"UIEL 5PA55..,." 
5030 PRINT RT 21 , 0; "DRUECKEN SIE 

NUN EINE TASTE...." 
5032 IF ^KEY*«"" THEN GOTO 5032 
5034 CLS 
5036 GOTO 5 
9000 SAUE "P AN ig" 
9002 GOTO 1 
9004 STOP 

9010 REM BILDSCHIRMABFRAGE 
9100 REM 042 014 126 079 006 000 

201 
9110 REM BITTE IN ERSTE REM- 
9115 REM ZEILE POKEN 
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Screen Designer 
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Ein Maskengenerator für den TI 99/4 A 
in Extended BASIC geschrieben 



DISPLAY AT (Zeile, Spalte), SIZE 
(Länge), BEEP: USING „##.##", 
ACCEPT AT (Zeile. Spalte), SIZE 
(Länge). VALIDATE (Typ), BEEP: 
Welcher TI 99/4 A-Besitzer kennt 
nicht diese mühselige Prozedur 
der Maskenprogrammienmg? 
Solange die Eingabefelder immer in 
der gleichen Spalte liegen, und die Va- 
riablen alle vom gleichen Typ sind, 
kann man sich die Arbeit mit einer 
Schleife noch erleichtern. Werden je- 
doch die Felder an verschiedenen Po- 
sitionen gebraucht, und sind die Va- 
riablen auch noch von verschiedenen 
Typen, so geht die große Zählerei auf 
dem Bildschirm los. Welcher TI-Besit- 
zer hat sich in solchen Fällen nicht 
schon einmal ein Programm ge- 
wünscht, welches ihm diese mühselige 
und stupide Arbeit abnimmt? Bitte 
schön: Hier ist Ihr gewünschtes Pro- 
gramm oder besser gesagt das Pro- 
grammpaket: SCREEN DESIGNER. 
Das Programm wurde auf dem TI 99/4 A 
in TI Extended BASIC geschrieben, und 
erfordert einen Kassettenrecorder, 
oder ein Diskettenlaufwerk, um die 
Maske als FILE zu speichern. 
Das Programm besteht aus drei Teilen: 
Teil 1: SCREEN DESIGNER 
Dieses Programm ist das Kernstück 
des Paketes. Es beinhaltet den Mas- 
kengenerator, sowie den Editor zum 
ändern einer bereits erstellten Maske. 
Teil 2: SCREEN READER 
Hierbei handelt es sich um das Unter- 
programm MASKE, welches die mit- 
tels SCREEN DESIGNER erstellte 
Maske später in Ihrem BASIC-Pro- 
gramm verwaltet. 
Teil 3: SCREEN PRINTER 
Für dieses Programm brauchen Sie au- 
ßer der oben schon genannten Peri- 
pherie zusätzlich noch einen Drucker, 
denn dieses Programm erstellt Ihnen 



109 !SP» 

110 REM ******************** 
120 REM"* SCREEN DESIGNER * 

139 REM * * 

140 REM * TI 99 s 4 R * 
150 REM * + Extended BKS IC * 
160 REM * + Ext. Sf> sicher * 

178 REM * ■ * 

180 REM *Cc 51984. Trofllcftoft* 
199 REM * V.Becker * 
309 REM ******************** 
210 REM 

226 REM 
230 !SP+ 



eine Aufschlüsselung einer mit 
SCREEN DESIGNER erstellten Mas- 
ke, und gibt diese auf dem Drucker 
aus. So haben Sie die entsprechende 
Maske immer griffbereit bei Ihren Pro- 
grammunterlagen, und können jeder- 
zeit den Aufbau und die Gliederung 
der Maske vergleichen. 
Um die Verwendung des Programme s 
SCREEN DESIGNER möglichst vielen 
TI-Benutzern zugänglich zu machen, 
wurde hier die 'Form eines FILES zur 
Speicherung der MASKE gewählt. Es 
wäre ohne weiteres möglich gewesen, 
die Maske auch als Programm erstel- 
len zu lassen, dies setzt jedoch ein 
Diskettenlaufwerk voraus, um das 
Programm im MERGE-Modus erstel- 
len zu lassen. Da die meisten Tl-User 
jedoch kein Laufwerk zur Verfügung 
haben, ist der hier beschriebene Lö- 
sungsweg sicherlich am besten. 
Doch nun zum eigentlichen Pro- 
gramm: 

Wir beginnen eine Maske zu erstellen, 
indem wir das Programm SCREEN 
DESIGNER einladen (z. B. RUN „CS" 
oder RUN „DSK1.S-DESIGNER"). Das 
Programm startet nun von selbst, und 
das Titelbild erscheint. Sie haben jetzt 
zwischen' zwei Möglichkeiten die 
Auswahl: 1 . Sie wollen eine neue Mas- 
ke erstellen oder 2. Sie wollen eine 
bereits erstellte Maske, die bereits auf 
Cassette oder Diskette gespeichert ist, 
ändern. 

Bei Auswahl 2 werden Sie nun nach 
dem Namen der zu ändernden Maske 
gefragt. Geben Sie den Namen ein (z. 
B. CS1 oder DSK1. MASKE) und 
drücken Sie <ENTER>. Der Rechner 
lädt nun die gewünschte Maske ein, 
und gibt diese auf dem Leerbildschirm 
aus. Wenn Sie die Auswahl 1 getroffen 
haben, so geht der Rechner sofort in 
den Leerbildschirm, ohne etwas aus- 
zugeben. 

Der Leerbildschirm hat eine gelbe 
Hintergrundfarbe und einen blauen 
Rand. In der Ecke ist ein L sichtbar. 
Bewegen Sie den in der oberen linken 
Ecke sichtbaren Cursor mittels den 
Cursor-Steuertasten über den Bild- 
schirm. Schreiben Sie mittels der Ta- 
statur Ihren Text an die gewünschten 
Stellen auf dem Bildschirm, oder über- 
schreiben Sie den entsprechenden 
Text. Sie können an den Stellen, wo 
später die Eingabefelder liegen sollen, 
beliebige Zahlen oder Buchstaben ein- 
geben. Vergessen Sie jedoch nicht die 



Dezimalstelle mit einem Punkt zu ver- 
sehen, da der Rechner sonst bei der 
Generierung des USING-Formates 
keine Dezimalstellen generiert. Eine 
Betätigung der <ENTER> -Taste setzt 
den Cursor an die linke obere Bild- 
schirmecke zurück. Nachdem Sie sich 
so Ihre Maske definiert haben, 
drücken Sie die Funktionstaste AID 
(FCTN 7), um den Leerbildschirm zu 
verlassen. Der Rechner speichert jetzt 
die Maske ab. Dieser Vorgang dauert 
ca. 50 sec. Zum Zeichen, daß das Sy- 
stem arbeitet, wird der Rand des Bild- 
schirmes rot. 

Sobald die Maske abgespeichert ist, 
gelangen Sie in den Attributbild- 
schirm. Der Rand hat jetzt die Farbe 
Weiß, und in der linken oberen Ecke 
ist ein A zu sehen. 

Im Attributbildschirm wird die Lage 
der Ein- bzw. Ausgabefelder festge- 
legt. Wenn Sie eine bereits gespei- 
cherte Maske editieren, so werden die 
Attribute der ursprünglichen Maske 
automatisch gesetzt. Bei einer Neude- 
finition erscheinen keine Attribute auf 
dem Bildschirm. 

Die Attribute sehen wie folgt aus: 
< Beginn eines Feldes 
> Ende eines Feldes 
Bewegen Sie den Cursor mit den 
Steuertasten an die gewünschte Stelle, 
und geben Sie dann das Attribut ein. 
Es können mit den Attributen auch 
Textstellen überschrieben werden. 
Dies macht der Maske nichts aus, da 
der Text bereits gespeichert ist, und 
durch ein Überschreiben nicht beein- 
trächtigt wird. Das entsprechende 
Feld wird immer zwischen Feldan- 
fang- und Feldende- Attribut gene- 
riert. Die maximale Feldlänge darf je- 
doch 1 4 Zeichen nicht überschreiten, 
Ein Attribut kann durch die Funk- 
tionstaste ERASE (FCTN 3) gelöscht 
werden. 

Es können maximal 25 Felder in einer 
Maske generiert werden. 
Nachdem alle Attribute gesetzt wur- 
den, verlassen Sie den Attributbild- 
schirm wieder mit der Funktionstaste 
AID (FCTN 7). Jetzt führt der Rechner 
eine. Fehlerkontrolle der Attribute 
durch. 

Sollte ein Fehler aufgetreten sein, so 
meldet sich der Rechner mit einem 
akustischen Signal, und in der oberen 
Unken Ecke erscheint ein F. Der Cur- 
sor hat jetzt die Farbe Weiß und steht 
an der fehlerhaften Bildschirmstelle. 
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240 DI« MHSKE*< 24 >, VflLD»< 25 ) , FELD< 25 >, FR«C 25 >, FE< 25 X. USERS* 25 Ü', TONC 25 > 

250 GOTO 280 < < B» < • DATEI» ■ • VA» " X» " DEL ■ ■ I " K " MASKE » < R ■ ■ 8fl « 

» SIGN i i SIGNALT » = SKIP > : SUCH " T > ■ Wl ' » W2 " WH >>he '" WERT . i X " X 

1 " XS " y m Yl i « Y8 » ' Zfl 

260 CRLL CHRR ■ : CRLL CLERR ■ « CRLL COLOR > « CALL DELSPRITE : ' CALL GCHRR ■ « CRL 

L HCHflR « ■ CRLL KEY = • CRLL MHCNIFY * ' CRLL 8CREEN « '■ CRLL SOUND ■ ' CRLL SPRITE 

279 CRLL VCHffiR « « ! OP~ 

280 FRC0),FE<0>~1 
290 X-3 ! •' Y«l 
300 GOTO 2070 

310 CRLL CLERR «« CRLL SCREENC3)" CRLL COLORC 1,2,5) 

320 CRLL CHARC i 28 , RPT»< " " , i 6 > > 

330 CRLL CHRR(96, ), FF8181818i8i81FF") 

340 FOR 1*1 TO 2 n CRLL VCHRRU, I, 128,24)^ CRLL VCHRRU, 1+30, 128,24); ' HEXT I 

350 CRLL C0LöRO,2,il,2,2,li,3,2,n,.4,2.n,5,2,li,6,2,n,7,2,ll,8,2,li,9,2,H> 

360 CRLL COLOR< 10,2, 11, 11,2, 11,12,2.- 11 > 

370 OH SKIP GOTO 400,380 

380 GOSUB 1430 

390 FOR 1*0 TO 24 <■ MR8KE*C I >- M " <« NEXT I 

400 CALL SPRITE« £2, 76, 16,8,8) 

410 T»13 '••• GOSUB 508 

420 CRLL KEYC0,T,S>== IF S*0 THEN 420 ' 

430 IF T»13 THEN GOSUB' 500 ELSE 450 

440 GOTO 420 

450 IF T>7 RND Kl 2 THEN GOSUB 500 ELSE 478 

460 GOTO 420 

470 IF T-l THEN 650 

480 XS*X ■ ■ YS"Y ' i SIGNET < > T~9 = = GOSUB 508 

490 CRLL HCHRR(YS,XS,SIGN>:: GOTO 420 

500 X1*X : f Y1«Y 

516 IF T*13 THEN X"3 ■ ■' Y«l « < GOTO 530 

520 ON T-7 GOSUB 580,550,610,630 

530 CRLL SPRITE<£1,96,2,Y*8-7,K*8~7) 

540 RETURN 

550 X»X+1 ■■ '• IF X>30 THEN X«3 ■ • Y«Y+1 

560 IF Y>24 THEN Y~l 

570 RETURN 

580 X«X-1 ■ ' IF X<3 THEN X«30 • < V«Y~1 

590 IF Y<1 THEN Y~24 

600 RETURN 

618 Y«Y+1 '-• IF Y>24 THEN Y*l 

620 RETURN 

630 Y-Y-l : : IF Y<1 THEN Y=24 

640 RETURN 

em CRLL DEL8FRITE<RLL>" CRLL SCREEN<9>" CRLL COLORC 13,9, 1, 14,9, 1 > 

sm für i*i to 24 

67B FÜR K-3 TO 30 

680 CRLL GCHAR< I , K, MASKE > ■■ •■ MASKE*< l >-MASKE*< I >8cCHR»< MRSKE > 

690 NEXT K • • NEXT I 

700 FOR 1*1 TU 24 ■' DISPLAY HT< I * t > ' " '* !! NEXT I 

710 CRLL. 8CREEKK 16 > < < CRLL COLORC 13,16,1,14,16,1) 

720 FOR 1*1 TO 24 •• DISPLAY AK 1 , 1 > ' MFISKE»C I > ■ « NEXT I 

730 ON SKIP GOTO 740, 1670 

740 ! .Attributbildschirm 

750 X-3 « < Y*l 

760 CALL SPRITEC£2,65,5,8,8> 

770 T-13 > • GOSUB 500 

780 CRLL KEY<5,T,S>'< IF T>7 RND T<1 2 THEN GOSUB 500 

790 IF T«60 XOR T*62 THEN 839 

800 IF T*13 THEN CRLL SOUND<- 1 00,262,5 ).i GOSUB 500 

810 IF 7*7 THEN Sm 

820 IF T«l THEN 878 ELSE 780 
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838 CRLL HCHRR<Y,X,T) 

840 T*9 i' CRLL SOUNDC-100,523,5)" GOSUB 500' 

850 GOTO 780 

868 CALL HCHflR<Y,X,32>' < SIGHRLT-32 " T~9 ■ > CALL SOUND* -100, 131 ,5 )" GOSUB 500 

: i GOTO 780 
870 CflLL DEL8PRITEC RLL ) « ■ CRLL CQLORC 13, 9, 1 , 14, S> 1 ) { ' CRLL SCREEW 9 ) 

889 8UCH«I 

890 SKIP«0 

900 FOR Y=l Tö 24 

919 FOR X«3 TO 30 

920 CflLL GCHRR<Y,X,WERT) 

930 IF WERT«60 OR WERT-62 THEN GOSUB 1810 

940 IF SKIP«1 THEN GOTO 1770 

950 NEXT X 

960 HEXT V 

970 IF FRCSUCHX>0 THEN 1770 

980 CflLL CLEflR == CRLL VCHARC1, 1, 128,48); < CflLL VCHflRCij. 31.. 128,48 )■ < CflLL COLOR< 

13,2,9,14,2.-9)- PRIHT "<S-D> Serieriert die Felder"' • 

990 CALL SOUND« -100.- 523,5) 

1000 FOR 8UCH»1 TO 25 

1010 IF FfKSUCH>«0 THEN 1090 

1 Ö20 WRbFRC SUCH >- 1 NK FHC SUCH ) ) » < Mfl*l« 1 00 •• WE«FE< SUCH )- 1 NK FE< SUCH ) ) > • WE«WE# 

108 

1 030 USER*< SUCH >»SEG»< MASKE« I NK FR< SUCH ) ) ) , WA , -FELIX SUCH ) ) 

1040 B**USER»<SUCH> 

1050 FOR K*l TO LENC USER« SUCH >> 

1060 IF RBC<B*>-33 XOR flSC<B$>«46 THEN 1070 ELSE GOSUB 1760 

1970 ß$*SEG«B$,2,LEN<B30) 

1080 NEXT K ■ ' HEXT SUCH 

1098 PRINT "<8-D> loescht die Felder in der Bildmaske" * ' •■ • CALL SOUND* -1 

00,523,5) 

1100 FOR SUCH«1 TO 25 

1110 IF FR<SUCH)*0 THEN 1160 

1.120 U1«INT<FFKSUCH)>" W2«FHCSUCHMNTCFfKSUCH)>« * W2«W2*100 

1130 FOR DEL«1 Tö FELD<SUCH) 

1 140 MRSKE« Wl >-SEG« MASKE« 141 ), 1 , W2-2+DEL H." H B«SEG« MHSKE$< Wl >, W2+DEU 28 ) 

1150 NEXT bEL " NEXT SUCH 

1160 CRLL CLEAR >■ CALL CÜLÖRC13, 16,2, 14, 16,2)< * CRLL BCREEN<2>" CRLL VCHRR<1,1 

, 128, 48 ) i • CALL VCHRRC 1,31, 128, 48 ) 

1178 CALL HCHAR<4,3,128,28) 

1180 CRLL HCHRRC21, 3, 128,28) 

1190 FOR SUCH=1 TO 25 

1200 IF FHC SUCH >*0 THEN 1410 

1210 DISPLAY HK2, 1 ) 'MASKE« IHK FACSUCH)))' • DISPLAY AT(2,CFACSUCH)-INT<FAX SUCH) 

> >*100 )SIZE< FELD< SUCH ) ) ■ USER« SUCH ) 

1220 DISPLAY AK£,1): "Felder vor Ausgabe loescheri OJ/N) — > <>—" 

1230 DISPLAY AK 9^1) '"Akkustisches Signal bei der Ausgabe des Feldes CJ 

/N) > < " 

1240 DISPLAY AK23,7)'US1NG "Feld Nr.: ££»«8UCH 

1258 IF SGNCFELD<SUCH))-»1 THEN DISPLAY AK7, 14)SIZE<1 >' "N" ELSE DISPLAY AK7,14 

)SIZEU)'*'J" 

1 260 ACCEPT RTC 7,14 )VRL I DATE< " JN " )8 I ZE< - 1 )BEEP » X» ! : I F X®» " N " THEN FELD< SUCH >— 

FELDCSUCH) 

1270 IF TOH<SUCH)*l THEN DISPLAY AK 1 1, 14)8IZE< 1 )< "J" ELSE DISPLAY RK 11 , 14>8IZE 

<l)'"N" 

1280 ACCEPT AK11,14)VALIDRTEC"JN")SIZEC-1)BEEP'X* n IF X»« M J" THEN TON<SUCH)«i 

ELSE TON* SUCH >»0 

1298 DISPLAY AK 13, 1 )= "Tw'P der Variablen 8 - keine Vereiribaru.n9" 
1300 DISPLAY AK15,1)'"1 - URLPHA < Grossbuchstaberi )2 - DIGIT < Ziffern 1 bis 9)3 

- NUMERIK ZiffenV .+-E ' )4 - eigener Text" 

1310 DISPLAY AK 19,9)'" > < " 

1320 IF LEW VRLD« SUCH ))>! THEN DISPLAY AK 19, 14>SIZE< 1 >• "4" '< VFW-VHLD« SUCH >E 
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LSE D I SPLHY RTC1 9 , 1 4 >S I ZEC 1 > « V ALD« SUCH > 

1330 flCCEPT RTC 19, 14)SIZEC-1 )VALIDRTE< "01234" )BEEP ' VHLD« SUCH ) 

1340 IF VRLDSCSUCH)*"" OR VRLD»C SUCH >■ " " THEN 1330 

1350 IF VALDSCSUCH)-'^" THEN 1360 ELSE 1390 

1360 DISPLAY AK 19.1): "Text : » 

1370 DISPLAY RTC19,9>«VR* 

1 380 RCCEPT RTC 1 9 , 9 )S 1 ZEC -20 >BEEP ■• V ALD« SUCH > 

1390 FOR 1-13 TO 19 == DISPLRY HTC I, 1 >■• "" ■= HEXT I 

1490 HEXT SUCH 

1410 GOSUB 1430 

1420 GOTO 1540 

1430 CALL CLERR 

1440 CALL VCHflftC 1,31.- 128,96) 

1.450 FOR 1=1 TO 24 

1460 DISPLAY RTC 1 , 1 > i MRSKE* C I ) 

1470 HEXT 1 

1480 FÖR SUCH*1 TO 25 

1490 IF FRC SUCH >=0 THEN 1530 

1500 Wl«Ffl<SUCH)-INTCFRCSUCH>)' ■• UlaWl*lOT '• '- W2=IHTC FRC SUCH >> 

1510 DISPLRY RTC W2,W1)SIZECFELDCSUCH>)' USER« SUCH) 

1520 HEXT SUCH 

1530 RETURN 

1540 CALL KEY<5.T..SK= IF T<>15 THEN IF T<>12 THEN 1540 

1550 IF T-13 THEN SKIP=2 * • GOTO 310 

1560 CALL CLERR " DISPLAY HTC 12, 1)' "Name- der Datei, worauf die Maske BtäPeieh* 

rfc werde vi soll ? CGeraet.Naroe)" 

1570 RCCEPT RTC 15, 1)BEEP = DATEI* 

1 580 OPEN £2 < DRTE I * , OUTPUT , SEQUEMT I RL , I NTERNRL , F I XED 80 

1590 FOR 1 = 1 TO 24 ■■ PRIHT £2 = MASKE*C I ) >■ NEXT I 

1600 FOR I«l TO 25 =• PRINT £2 ^FELDC I),TONC I ),Ffl< I), VRLD« I >,USER$< I > 

1610 IF FRCI)"0 THEN 1630 

1620 NEXT I 

1630 CRLL CLERR 

1640 OH ERROR STOP 

1650 CLOSE £2 

1669 STOP 

1670 FOR 1*1 TO 25 

1680 IF FflKD-0 THEN 1730 

1690 ZRalNTC FRC I ) > « « Sfl=C FRC I )-IHTC FAC I ) ) >* 100 

1 780 DI SPLRY AT< ZA, SR» 1 >S I ZEC 1 ) • " < " 

1710 DISPLRY RTCZA,SR+ABSCFELDCI>))SIZEC1)'">" 

1720 HEXT I 

1730 FOR 1*1 TO 25 =■ FAC I ),FEC I )«0 ■ : USER«I)«"" ;: NEXT I 

1740 FAC0),FEC0)=1 

1750 GOTO 740 

1 760 USER« SUCH >*8EG« USER« SUCH ) , 1 , K- 1 )«. " £ " &SEG« USER« SUCH > , K+ 1 , LENC USER« SUCH 

>>-K>'-» RETURN 

1770 CRLL SPRITEC£2,70,16,3,3> 

1780 CALL SPRITEC £1 , 96, 16.. Y*8-7, X*B-7 ? ■' : CALL 80UNDC 1600.' 262.-0. 330, 0, 196, ) 

1790 FOR 1*1 TO 25 ■• FRC I >,FEU >,FELDC I )«0 ■• NEXT I 

18*30 GOTO 780 

1810 ! 

1820 IF WERT-62 THEN 1860 

1830 IF Ffl<SUCH><>0 THEN SKIP-1 •■ •■ RETURN 

1 840 FAC SUCH >- Y+C X- 1 V 1 00 

1850 RETURN 

1860 IF FRC SUCH )*0 THEN SKIP*1 '■ '• RETURN 

1870 IF INTC FAC SUCH )X>Y THEN SKIP*1 :: RETURN 

1880 FE< SUCH >Y+C X-Z VI 00 

1.890 W1*FE< SUCH)- INTCFEC SUCH))' ' U1-U1X100 '■ '■ W2*FHCSUCH)-1NTCFRCSUCH)): ■ W2-M2* 

100 

1900 FELDC-SUCH)»U1-W2 
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1910 
1920 
1930 
1940 
1958 
i960 
1970 
1980 
1990 

2000 
2010 

2020 

2030 
2040 
2050 
20S0 
2070 
2ÖS0 



OR FELIX SUCH )>14 THEN 8KIP=1 
8KIP=1 ' ' RETURN 



IF FELCKSUCHX1 
SÜCH-SUCH+i 

IF SUCH>25 THEN 

i 

RETURN 

DISPLAY RTa5..1): "Welche Maske »oll 

RCCEPT RTC 17, 1)BEEP= DATEI» 

ON ERROR 1970 

ÖPEN £1« DATEI», INPUT ,8EGUENTIAL, INTERNAL, FI XED 



RETURN 



IHPUT £1'MA3KE»CI)«' NEXT I 

INPUT €1 •• FELIX. I >, TOW I >, Ffl< I >, VALD»C I ^ U3ER»C I 

2640 



NEXT I 
' CALL 



FÜR 1=1 TG 24 : 

FOR 1*1 TÖ 25 ' 

IF FA<I)a0 THEN 

NEXT I 

CLOSE £1 

ON ERROR STOP 

GOTO 2170 

FOR 1=2 TÖ 12 = •• CALL COLORC 1,2, 11 ) «i 

CALL CLEAR << CALL VCHARU,31, 128,96) 
CREEN< 5 5 
2090 CALL MHGNIFY<2><* CALL SPRITE-: £1,83, 7 

D I SPL A IV ATC 4 , 8 ')■ " cr-een es i 5 r.er " 

RK23,4>: ,, <c) 1'984 by Tronicsoft" 

R T< 9 .■ 1 > ! " B i 1 1 e w aeh 1 e n Sie aus > " 

AK15,i)'"i - Neue Maske erste 11 er«" 

DISPLAY RTCITM)''^ - Vorhandene Maske aertdern" 

RCCEPT RTC 9,28 > VRL I D ATE< "12" )BEEP ! SK I P 

ON SKIP GOTO 2170, i960 

CALL DELSPRITKflLD" CALL CLEAR :! CALL MAGNIFY<1>' 



.yeraendertwerden ? CGeraet.'naroe?" 



80 



2100 

211.0 
2120 
2130 
2140 
2150 
2160 
2170 



C0L0RC1,2,11,13,11,5 

17,68,£2,63,7,17,132~> 



) ■ 



CALL 



DISPLAY 
DISPLAY 
DISPLAY 



GOTO 310 



Unterprogramm SCREEN READER 

Um eine mit SCREEN DESIGNER er- 
stellte Maske im eigenen Extended- 
BAS IC -Programm zu verwenden, 
wird das Unterprogramm MASKE, der 
sogenannte SCREEN READER be- 
nutzt. . 

Benutzer eines Kassettenrecorders 
schreiben das Programm separat auf 
Kassette weg, und laden dieses, bevor 
sie ihr eigenes Programm schreiben, 
ein. Benutzer eines Diskettenlaufwer- 
kes speichern das Programm im MER- 
GE Modus ab (z. B. SABE DKS1. MAS- 
KE, MERGE) und können dieses dann 
mit MERGE auf jedes beliebige Pro- 
gramm aufladen. Dabei ist lediglich zu 
beachten, daß die Programmzeilen ab 
32000 nicht vom eigenen Programm 
belegt sind. 

Doch nun zum Programm: 

Zeile 32060 hat die allgemeine Form: 
DIM MASKE$(n,24), VALD$(n,25) r 
SZE(n,25), DAT(n,25), USER$(n,25), 
Ton(n,25) 

wobei n die Anzahl der gleichzeitig 
verwaltbaren Masken angibt. Die An- 
zahl ist lediglich durch den zur Verfü- 
gung stehenden Speicherplatz be- 
grenzt. 

Im Programm ist n mit 1 angegeben. 
Das bedeutet, daß maximal 2 Masken 
gleichzeitig verwaltet werden können 
(Maske Nr. und Maske Nr. 1 ). 



Die Anzahl kann jedoch vom Benutzer 
beliebig erhöht werden. 
Der Aufruf des Unterprogramms hat 
folgende Form: 

CALL MASKE (ACT.MNR.FNR, nu- 
merische Variable oder Zahl, String- 
variable oder Text). 
Hierin bedeuten: 

ACT - Eine Anzahl zwischen 1 und 5, 
welche angibt, was mit, bzw. in 
der Maske geschehen soll: 

1 - Die Maske wird auf dem Bild- 
schirm ausgegeben. 

2 - Eine Variable wird in der Maske 
eingelesen. 

3 - Eine Variable, bzw. Zahl oder Text 
wird in einem Feld der Maske ausge- 
geben. 

4 - Eine Maske wird von Kassette 
oder Diskette geladen. 

5 - Das Unterprogramm wird für eine 
oder mehrere Masken initialisiert, d. 
h., es wird der - Speicherplatz für die 
Masken zur Verfügung gestellt. 

MNR-Gibt die Nummer der Maske 
an, mit welcher die entsprechende 
Aktion ausgeführt werden soll. 

FNR - Gibt die Feldnummer in der 
entspr. Maske an, in welcher die Ak- 
tion durchgeführt werden soll. 
Numerische Variable - ist eine Varia- 
ble nach Ihrer Wahl. 

String variable - ist eine Textvariable 
nach Ihrer Wahl. 



Die ganze Maskenverwaltung ist rela- 
tiv einfach mit einem einzigen Befehl 
zu bearbeiten. 

Wir wollen dies an einem Beispiel ver- 
deutlichen: 

Nehmen wir an, Sie haben 2 Masken, 
welche Sie verwalten wollen, und 
nehmen wir an, diese Masken sind auf 
Kassette gespeichert. 

Zuerst müssen wir die Maskenverwal- 
tung initialisieren und geben den Be- 
fehl: CALL MASKE(5,0,0,V,V$) ein. 
Die DIM- Anweisung in Zeile 32060 
wurde nicht verändert, und der Platz 
für 2 Masken ist jetzt reserviert. 
Dieser Befehl muß als erster Masken- 
befehl stehen, und darf im weiteren 
Programmverlauf nicht noch einmal 
vorkommen. 

Jetzt laden wir die erste Maske ein. 
Dazu geben wir den Befehl: CALL 
MASKE(4,0,0,V,V$) und der Rechner 
fragt nach dem Eingabegerät. Tippen 
Sie CSi ein, und drücken Sie danach 
<ENTER). Der Rechner lädt die Mas- 
ke unter der. Nummer ein. 

Zum Einlesen der 2. Maske geben wir 
den Befehl CALL MASKE{4, 1 ,0, V, V$) 
ein, und wieder werden wir nach dem 
Eingabegerät gefragt. Geben Sie wie- 
der CSi ein und drücken Sie (EN- 
TER), um die 2.-Maske zu laden. Die 
beiden Masken sind nun im Rechnet 
gespeichert. .■/-£;' .*■*' 
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Wir rufen jetzt Maske 2 auf: CALL 
MASKE(1,1,0 ( V,V$), und die Maske 
wird auf dem Bildschirm ausgegeben. 
Nehmen wir an, die Maske hat 15 Fel- 
der, und aus allen Feldern soll eine 
Variable eingelesen werden. Dazu ha- 
ben wir zuvor im Programm ein Feld 
mit dem Namen EINGABE dimensio- 
niert. 

Die Eingabe der Felder kann nun wie 
folgt erfolgen: 

CALL MASKE (2 , 1 ,1,EINGA- 

BE(I),V$), 
NEXT I. 

Sie haben somit alle 15 Felder der 
Maske eingegeben, wobei es völlig 
egal ist, wo die Felder auf dem Bild- 
schirm liegen. 

Der SCREEN READER vereinbart die 
Felder wie folgt: 

Felder, die den Variablentyp DIGIT 
oder NUMERIC haben, werden in die 
numerische Variable eingelesen. 
Felder mit den Variablentypen UAL- 
PHA, eigener Text oder wenn keine 
Vereinbarung getroffen wurde, wer- 
den in die Stringvariable des Parame- 
ters eingelesen. 

Doch nun weiter im Beispiel: 
Wir geben jetzt unsere Maske 1 auf 
dem Bildschirm mit dem Befehl CALL 
MASKE(1.0,0,V,V$)aus. 
Das Feld 3 haben wir im SCREEN DE- 
SIGNER als Stringfeld ausgewiesen, 
und wollen hier den Kommentar Com- 
putronic ausgeben. Dazu schreiben 
wir den Befehl CALL MAS- 
KEß A3, V.Xomputronic") und der 
Text erscheint im Feld 3. 
Die Maskenverwaltung geht mit die- 
sem Unterprogramm wesentlich kom- 
fortabler und einfacher als mit dem 



ewigen DISPLAY AT und ACCEPT 
AT. Die Verarbeitung ist weiterhin 

auch platzsparender, da man im Ver- 
lauf eines Programmes jederzeit eine 
nicht mehr benötigte Maske durch 
eine andere Maske überschreiten 
kann. 

Nehmen wir an, wir brauchen unsere 
Maske 2 nicht mehr, so können wir 
mit CALL MASKE(4,l,0 f V,V$) eine 
neue Maske in den Speicherbereich 
der Maske 2 laden. Wird dann die 
Maske 2 angesprochen, so erhalten 
wir die neu eingeladene Maske auf den 
Bildschirm. 

Es gibt viele Möglichkeiten der. Mas- 
kenverwa-ltung, die in dieser kurzen 
Beschreibung nicht alle abgehandelt 
werden können. Am besten Sie pro- 
bieren die Sache einfach selbst aus. 
Es ist jedoch darauf zu achten, daß sie 
keine Maskennummer ansprechen, 
die außerhalb der durch DIM in Zeile 
32060 liegenden Dimension liegt. Fer- 
ner dürfen Sie keine Feldnurnmer an- 
sprechen, die nicht im SCREEN DE- 
SIGNER definiert wurde. 
Ein Versuch dieses zu tun, wird mit 
einer Fehlermeldung und mit -Pro- 
grammbruch" quittiert. 
Es gehört sicher etwas Übung zu die- 
ser neuartigen Programmtechnik, je- 
doch werden Sie dieses ganz schnell in 
den Griff bekommen, und dann den 
Maskengenerator nicht mehr missen 
wollen. 

Mit dem Programm SCREEN PRIN- 
TER können Sie sich eine Aufschlüs- 
selung einer durch SCREEN DESIG- 
NER erstellten Maske auf dem Druk- 
ker ausdrucken lassen. Sie haben so- 
mit mit einem Blick die Kontrolle, wie 
die Maske aufgebaut ist, und wo die 






einzelnen Felder liegen. Ferner be- 
kommen Sie sämtliche Optionen der 
einzelnen Felder ausgedruckt. 
Als Anlage ist ein Probeaus druck ei- 
ner Maske beigefügt. 
Die im Feld „Länge" ausgebenen Wer- 
te sind wie folgt zu lesen: 
Postitive Länge - Das Feld wird vor 
Eingabe gelöscht. 

Negative Länge - Das Feld wird nicht 
gelöscht. 

Laden Sie das Programm mit RUN 
„CS1" oder mit RUN „DSK1.S-PRIN- 
TER" ein. Es startet sich jetzt von 
selbst. 

Geben Sie den Namen der aufzu- 
schlüsselnden Maske ein (z.B. CS1 
oder DSK1. MASKE). 
Sie werden jetzt nach dem Druckertyp 
gefragt. Hierbei antworten Sie dem 
Rechner mit der entsprechenden 
Schnittstellenoption, an welche Sie Ih- 
ren Drucker angeschlossen haben 
(z. B. RS232 für die serielle Schnitt- 
stelle, oder PIO für die parallele 
Schnittstelle). 

Danach geben Sie dem Rechner noch 
das aktuelle Datum ein, und der Aus- 
druck beginnt. 

ANMERKUNG: 

Das Programm ist auf einen SEIKOS- 
HA-Drucker der GP-Serie abge- 
stimmt. Sollten Sie einen anderen 
Drucker besitzen, so müssen Sie mög- 
licherweise die Programmzeile 620 
Print #1:CHR$(15) abändern, denn 
dieses Steuerzeichen schaltet den 
Drucker von Breitschrift auf Normal- 
schrift zurück. 

So muß die Zeile z. B, bei Verwendung 
eines STAR Druckers PRINT #1: 
CHR$(20) heißen. 



32000 
32010 

32020 
32030 
32048 
32050 

32059 
3207S 
32080 
32090 
32100 
32118 
32120 
32130 
32140 
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Mask em v er wa 1 t u.ri9s P ro9r amm zu 
<c> 1984 by Tronicsoft 
»0 



SCREEN DESIGNER 



SUB 

REM 

REM 

REM 

STV 

ÖN ACT GÖTO 32378, 32090/ 321 10, 32270, 32060 

DIM NRSKE« 1 .- 24 }, VRLD« 1 , 25 >, SZE< 1 , 25 >, DRTC 1 , 25 

0N WHRNING NEXT 

8UBEXIT 

STV«1 

IF T0NCMNR;FNR>«1 THEN CRLL SOUNDC -58/ 698,0? . 



JSER£<l,25LT0Na,25) 



IF LEN<VHLD«MNR,FNR>»1 THEN 32219 

IF VflUVRLD«MNR,FNR>>*0 THEN 32210 

OH VRL< VRLD*< MNR , FNR > )GOT0 322 1 , 32 1 40 , 32 1 40 

D I SPLHY RTC I NTC DRTC MNR , FHR ) > *<. DRTC MNR , FNR >- 1 NT< DRTC. MNR > FNR > ) >* 1 1 
i MNR , FNR > > « US I NG USER« MNR , FNR ? ■ VHR 
32150 IF STV"0 THEN SUBEXIT 



>SIZE<SZE 



oo 



32168 ON VRL<VRLDIKMNR,FNR>>GOTÖ 32390,321 
32170 ACCEPT RTC INK DRTCMHR, FHR >),C DflK MNR, FNR )• 
MNR, FNR ) >VHLIDHTE< DIGIT > • VRR 

.3213.0. SUBEXIT 



190 
• I NK DRTC MNR , FNR ) ) 5* 1 00 )S I ZE< SZE< 
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32 1 90 flCCEPT fiTC IHK DRTC MNR , FNR ) > , C DRTC MNR .. FNR )- 1 NT< DRTC MNR , FNR > ) >* 1 00 >8 1 ZE< SZE< 

MMR , FNR > >VHL I DRTEC NUMER IC)' VflR 

32200 SUBEXIT 

3Z2 10 DI SPLflY RTC I NTC DRIX MNR , FNR ) ) , C DRTC MNR , FNR )- 1 NTC DRTC MNR , FNR ) > ">% 1 09 )S I ZE< S2E 

C MNR , FNR ) ) • US I NG USER9C MNR , FNR > ! VflR» 

32:220 IF 8TV»0 THEN SUBEXIT 

32230 IF VRLD$CMNR,FNR)= ,, i" THEN flCCEPT RTC INK DRTC MNR ..FNR) ),C DRTC MNR ..FNR)- INT CD 

RTC MNR, FNR > ) )*I@0 )SIZEC SZEC MNR, FNR ) >VRLIDRTEC URLPHR ) ■ VRR* 

32240 IF VRLD*<MNR,FNR>« ,, 0" THEN RCCEPT RTC I NTC DRTC MNR. FNR) >,C DRTC MNR. FNR)- 1 NTC D 

RTC MNR, FNR ) ) )#100 >SIZE< SZEC MNR, FNR ) > > VRR» 

32250 IF LENCVRLD$CMNR,FNR)>>1 THEN RCCEPT RTC I NTC DRTC MNR. FNR)), C DRTC MNR, FNR)- IN 

TC DRTC MNR , FNR ) > ">% 1 80 )S I ZEC SZEC MNR , FNR ) )VRL. I DRTEC VflLD« MNR , FNR ) ) ' VflR» 

32260 SUBEXIT 

32270 CRLL CLERR = ■ DISPLAY RTC1, 

' RCCEPT RTC3,D = DRTEI$ 

ÖN ERROR 32270 

OPEN £99 »DATEI». 

FOR 1=1 TO 24 : ■ 



1 )BEEP ! "Name 6%r zu. ladenden Maske »CGeraet.Dat 



ei r 

32266 
32290 
32300 

32310 



32370 
32380 

32390 



FOR I«l TO 25 
8ER$CMNR,I> 
32320 IF DRTC MNR, I) 
32338 NEXT I 
32340 CLOSE £99 ' • CRLI. 
32358 ON ERROR STOP 
32360 SUBEXIT 

CRLL CLERR 

FOR 1*1 TO 24 : « 

SÜßEND 
Ein Fehler kann auftreten, wenn: 

1 . Ein Feldende Attribut gesetzt wur- 
de, ohne daß ein Feldanfang Attri- 
but gesetzt wurde. 

2. Ein zweiter Feldanfang definiert 
wurde, ohne daß das vorherige Feld 
geschlossen wurde. 

3. Ein Feld länger als 14 Zeichen ist. 

4. Ein Feld in einer Zeile beginnt und 
erst in der nächsten Zeile endet. 

5. Das letzte Feldende Attribut ver- 
gessen wurde. In diesem Fall er- 
scheint der Cursor nicht, wird je- 
doch nach der Betätigung einer 
Cursorsteuertaste in der unteren 
rechten Ecke sichtbar. 

Steuern Sie im Falle eines Fehlers den 
Cursor an die entsprechende Stelle, 
und ändern Sie diese, wie im Attribut- 
bildschirm beschrieben, ab. Danach 
drücken Sie wieder „AID", um einen 
neuen Fehlertestlauf zu starten. 
Wenn keine Fehler im Attributbild- 
schirm aufgetreten sind, so beginnt der 
Rechner mit der eigentlichen Masken- 
generierung. Die Aktionen werden Ih- 
nen auf dem Bildschirm mitgeteilt. 
Der Rechner generiert in dieser Zeit 
das DISPLAY AT Format, die Feldlän- 
ge SIZEf), sowie das USING Format. 
Nachdem die Generierung abgeschlos- 
sen ist, kommen Sie zur Variablenverem- 
barung: 

Im ersten Feld wird • gefragt, ob das 
entsprechende Feld vor einer Eingabe 
am Bildschirm gelöscht werden soll. 



I NPUT > SEQUENT I RL , I NTERNRL .» F I XED 80 
INPUT £99 'MflSKE«<MNR,I><< NEXT I 
I NPUT £99 « SZEC MNR , I ) , TONC MNR ,1), DRTC MNR , I ) , VRLD$C MNR ..!).. U 



8 THEN 32340 



CLERR 



DISPLAY RTC I , i > = MflSKE»< MNR, !>■•■ NEXT I 



Die Standardvorgabe hierbei ist immer 
„J". Wenn Sie später eine Variable 
jedoch nur in der Maske ändern wol- 
len, so antworten Sie dem Rechner mit 
„N", denn dann bleibt die Variable auf 
dem Bildschirm sichtbar und kann be- 
liebig geändert werden. 
Bei der Frage nach dem akustischen 
Signal ist die Standardoption einer 
neuen Maske „N", bei einer zu editie- 
renden Maske wird die Option der al- 
ten Maske ausgegeben. Wenn Sie also 
einen Piepston bei der Feldeingabe 
wünschen, so antworten Sie mit „J". 
Als nächstes kommt die Variablenver- 
einbarung an die Reihe. Sie haben die 
Auswahl zwischen 5 Möglichkeiten: 
Auswahl bedeutet keine Vereinba- 
rung. Es entfällt bei diesem Feld also 
das SIZE Format. 

Auswahl 1 läßt bei Eingabe nur Groß- 
buchstaben zu. 

Auswahl 2 läßt bei der Eingabe nur 
Zahlen zu. 

Auswahl 3 läßt bei der Eingabe nur 
Zahlen sowie die Zeichen + - . E zu. 
Bei Auswahl 4 können Sie selbst wäh- 
len, welche Zeichen und Zahlen bei 
der Eingabe zugelassen werden. Wenn 
Sie eine Maske ändern, so werden die 
Optionen der alten Maske ausgege- 
ben, können jedoch beliebig geändert 
werden. 

Der Rechner läuft alle Felder durch 
und fragt nach den Variablenverein- 



barungen. Danach wird die generierte 
Maske ausgegeben. Sie sehen den 
Text und die USING Formate an den 
entsprechenden Bildschirmstellen. 
Wollen Sie die Maske jetzt noch än- 
dern, so drücken Sie die Funktionsta- 
ste BACK (FCTN 9), und Sie kommen 
wieder in den Leerbildschirm, aller- 
dings wird die Maske bereits auf dem 
Bildschirm ausgegeben, und der Leer- 
bildschirm hat jetzt schwarze Rand- 
streifen. Sind Sie mit der Maske zu- 
frieden, so drücken Sie die Funktions- 
taste PROC'D (FCTN 6). Sie werden 
nun gefragt, wo die Maske gespeichert 
werden soll. Geben Sie das entspre- 
chende Gerät ein (z. B. CS1 oder 
DSKLMASKE), und der Rechner 
speichert die Maske ab. Der Speicher- 
vorgang dauert je nach Anzahl der 
Felder mit dem Cassettenrecorder ca. 
4 bis 8 Minuten, mit einem Disketten- 
laufwerk ca. 8 bis 1 2 Sekunden. " 
Lassen Sie sich von der Anleitung 
nicht beirren, denn die Maskenerstel- 
lung ist relativ einfach. Es hört sich 
alles viel schwieriger an, als es in 
Wirklichkeit ist. Probieren Sie es ein- 
fach einmal aus, und denken Sie dar- 
an, daß ein Programm niemals den 
Computer kaputtmachen kann. Es 
kann höchstens zum Systemabsturz 
kommen, was sich jedoch mit Aus- 
schalten ohne weiteres wieder behe- 
ben läßt. 
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xm isp- 

110 REM %%%%*%%%%%%%%*%%%%%%% 
120 REM * SCREEH PRINTER # 

130 REM * % 

14i3 REM * füer TI 99 s 4R * 
158 REM * + Extercded BASIC * 
160 REM * + ext. Speicher * 

170 REM * * 

180 REM * <cM984 TroTuesoft* 
190 REM * V.Becker % 
2@0 REM **************#*#**** 
210 REM 
220 REM 
230 ISP+ 

240 D I M Mfl"SKE*< 24 ) , VRLD« 25 > , SZEC 25 > , DA7X 25 > , USER« 25 ) , TOM 25 > 

250 GOTO 270 " DATEI* ■'■ DRTUM$ n DRUCK* : ' I " k : ' p : : m . : W2 i i CALL CL 
ERR ' ■■ CRLL GCHRR ' : CRLL SCREEH 
260 ISP- 

270 CRLL SCREEHC4) 

288 DISPLRY RK1,1>ERRSE ALL : "8 C R E E N PRINTE RAu.fschluesseluri9 einer 
'durch SCREEH DESIGNER erstell ten Bilschirromaske ™ 



290 D I SPLRY RT< 7,1):" Harne d^r- auf zusch i uesse l ndeYiMa.sk e ! < Ger aet • marne > " 

360 RCCEPT RTO>nBEEP* DATEI* 

310 ON ERROR 300 

320 OPEN £1= DATEI*, IHPUT ,8EQUEHTIRL, INTERNAL, FI XED 80 

330 FOR 1*1 10 24 »« IHPUT £ 1 = MASKE« I > < < NEXT I 

340 FOR 1 = 1 TO 25 < : IHPUT £1 « 3ZE< I ),T0N( 1),DA7X I >,VALD*U >,U8ER*< I > 

350 IF. DRT<I)«0 THEN 370 

360 HEXT I 

370 CL08E £1 

380 OH ERROR STOP 

390 DISPLAY R7X 12,1 >' "Drucker : "-n RCCEPT R7X 1 2, 11 )BEEP' DRUCK* 

400 ON ERROR 396 

410 OPEN £1 «DRUCK* 

420 ON ERROR STOP 

430 DISPLAY RTC 15,1 >BEEP=" Heutiges Datum » " >• RCCEPT AK 15, 18 )VRLIDRT£< NUMERI C 

-> i DATUM* 

440 PRIHT £1»" Aufschlüsselung der Maske = ".; DATEI*.:" ".i DATUM* 

450 FOR I»l TO 88 ■ > PRINT £1 > "-"; *« "NEXT I :: PRINT £1 

46Ö CALL CLERR 

470 FOR 1*1 TO 24 ^ DISPLAY ATU. , 1 ) > MRSKEKI > ■■ '■ NEXT I 

480 FOR 1 = 1 TO 25 

490 IF DRT(I>*0 THEN 530 

500 Ml=<:DRTCI)-INT<DflKI)))#100 ■ •■ W2*INT<DRTn )*> 

510 DISPLRY RT<W2,PU>SIZEXSZE<I>> = USER*a> 

520 HEXT I 

530 PRIHT £1 :i PRINT £1 •• PRINT £1:CHR»(14) 

540 PRINT £1:» 1234567890123456789012345678" 

550 PRINT £1»" — « : 

560 FOR 1=1 TO 24 

570 PRINT £1»» »;i: PRIHT £1,U8ING »'££». U" PRINT £l.»i»; 

580 FOR K=3 TO 30 •« CALL GCHRRC I,K,P>' i PRINT £1 »JCHR*<P>> •' : HEXT K 

590 PRIHT £1 * " i " 

600 HEXT I 

610 PRIHT £1 = " ■ " 

620 PRIHT £lsCHR*C15)! Urfischaltun9 auf Normal sehr ift •' Je nach Drucker bitte aba 
enderri 
630 PRIHT £1 

640 PRINT £1*" Feld Nr. ■ Zeile ■ Spalte ■ Laen9e = Rk kultisches Signal : Var- 
iablen Typ" 
650 FOR 1=1 TO 89 ■■ PRIHT £l:"-"j:» NEXT I •■ PRIHT £1 
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668 FÜR I«l TO 25 

670 IF DflKO-0 THEN 800 

680 PRINT £1 = " ".- 



PRINT £1,USIHG "££" 'U" PRINT £1 = * 



690 PRINT £1,USING "££" < IHK DflTC I >>; ■• • PRINT £1 1 " • "j 

C DR7X I >-IHT< DRT< I > ) )*100j 

700 PRINT £1<" • "j:. PRINT £1..IJSIHG "£££" <8ZE<I )i » « PRINT £1 : " 

718 IF T0N<I>1 THEN PRINT £1,USING " ££ " : " Ja" j ELSE PRINT £1, US IMG 

728 PRINT £1 = " •' "j 

730 IF LEN<VRLD*CI)>>1 THEN PRINT £1«VHLD«I>" GOTO 730 

749 IF VflLM^I>-"0" THEN PRINT £i'«ktiw Vereinb. " - GOTO 79® 

750 OH VBL<VflLD*(I))GOTO 760.-770,780 
760 PRINT £I = "URLPHR" •■ * GOTO 790 
770 PRINT £i i "DIGIT" '■• GOTO 798 
780 PRINT £1 > "NUMERIC" 

790 HEXT l 

800 FOR 1*1 TO SO •'■ PRINT £1.«-»;:. HEXT I 

818 PRIHT £1 ■■ ' PRINT £1 

828 PRINT £1:" Ende der- flufschlues.se lum9" 

830 CLÜSE £1 

840 CALL CLERR 

850 STOP 

860 END 



PRINT £1 AISING "££": 



"££££" •"nein 




Nother Duck 



Sind Sie schon einmal in die Rolle einer 
Enienmutter geschlüpft, die verzweifelt 
versucht, ihre Kinder zu füttern? 



( 



1 
■ 



Wenn nicht, so können Sie es mit die- 
sem Programm tun. Sie brauchen hier- 
zu einen TI 99/4 A Homecomputer, 
das TI Extended BASIC Modul, einen 
Joystick und einen Cassettenrecor- 
der, um das Programm abzuspeichern, 
denn Sie wollen ja sicherlich nicht vor 
jedem Spiel das komplette Programm 
eintippen. 

Hellen Sie der Entenmutter, Ihre Kinder 
zu füttern 

Tippen Sie das Programm ein und si- 
chern Sie dieses dann auf Cassette. 
Zum Spiel legen Sie nun die Cassette 
ein und starten, mit RUN „CS1". 
Kurze Zeit später erscheint auf dem 
Bildschirm das Titelbild mit der Frage: 
BEGINN BEI RUNDE <1-10>. Der 
Computer spielt Ihnen hierbei eine 
Melodie vor, bis Sie auf dem Keyboard 
irgend eine Taste drücken. Haben Sie 
jetzt eine Taste gedrückt, so erscheint 
der blinkende Cursor und Sie können 
die Runde eingeben, bei welcher Sie 
beginnen wollen. 

Geben Sie eine Runde größer 10 ein, so 
beginnt das Spiel bei Runde 10. 



Haben Sie die Runde eingegeben, so 
baut der Rechner das Spielfeld auf. 
Dies kann jedoch bei steigender Run- 
denzahl ein klein wenig dauern, da das 
Programm rein in BASIC geschrieben 
ist und beim Aufbau des unteren Bild- 
schirmteiles (Wald) eine Menge Bild- 
schirmvergleiche durchgeführt wer- 
den müssen. 

Wenn das Bild nun generiert ist, so 
erscheint in der Mitte des oberen 
Flußufers unsere Entenmutter und der 
Computer spielt uns SA.LOME vor. 
Um die Runde zu beginnen, drücken 
wir den roten Aktions knöpf am Joy- 
stick. 

Ziel des Spieles 

Die Ente muß über den Fluß in den 
Wald geführt werden, um dort die 
Würfel aufzusammeln. 
Diese Würfel muß sie wieder über den 
Fluß auf die obere Seite des Bildschir- 
mes bringen, um damit eine Pyramide 
aufbauen zu können. 
Nur so kann unsere Entenmutter die 
Kirsche oben rechts im Bild erreichen. 
Die Ente kann jedoch immer nur einen 



Würfel tragen. Hat unsere Ente nun 
die Kirsche erreicht, so muß sie diese 
zum Nest mit ihren Kindern bringen. 
Das alles hört sich jedoch einfacher 
an, als es ist, denn es gibt viele Mög- 
lichkeiten, wie unsere Ente das Leben 
verlieren kann. 

Wenn unsere Ente den Fluß über- 
quert, so sollte sie sich am besten mit 
keinem Schwertfisch einlassen, denn 
dieser Schwertfisch könnte schlecht 
gelaunt sein, und unserer Ente den 
Garaus machen. 

Die Ente bewegt sich im Wasser 
schneller als auf dem Land. Deshalb ist 
es ratsam, wenn die Ente den Fluß in 
Richtung Wald verläßt, dies nicht im 
Bereich eines Würfels zu tun, da es 
unserer Ente durch den Aufprall ein 
Leben kosten könnte. 
Unsere Ente darf auf dem Landweg 
den Bildschirm nicht verlassen, da sie 
sonst stirbt. 

Auch sollte die Ente nicht versuchen, 
durch einen Baum zu gehen, sie könn- 
te sich verletzen und im Wald sterben. 
Wenn unsere Ente endlich die Kirsche 
erreicht hat, so kommt aus dem Wald 
der böse Schrat und versucht, ihr die 
Kirsche abzunehmen. 
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Gelingt dem bösen Schrat dieses, so 
verliert unsere Ente ein Leben. 
In dieser Spielphase darf die Ente auch 
nicht in den Fluß, da sie sonst ertrinkt. 
Steuern Sie die Ente zum Nest. 

Steuerung 

Die Ente wird mit dem Joystick in 8 
Richtungen bewegt. Zum Aufnehmen 
eines Würfels gehen Sie mit der Ente 
über den Würfel und drücken Sie den 
Aktionsknopf. Wenn Sie mit dem 
Würfel die andere Seite des Flußufers 
erreicht haben, so wird der Würfel 
automatisch gutgeschrieben. Es ertönt 
ein Glockenschlag und der Würfel er- 
scheint oben links im Bild. 
Nachdem alle 10 Würfel gesammelt 
wurden, erscheint die Pyramide unter 
der Kirsche und die Ente sitzt ganz 
oben auf der Pyramide. 
Drücken Sie jetzt den Aktions knöpf, 
um fortzufahren. Der Schrat erscheint 
und verfolgt die Ente, Führen Sie die 
Ente zum Nest mit den Kindern. 
Wenn Sie das Nest erreicht haben, so 
ertönt wieder der Glockenschlag, und 
es geht mit der nächsten Runde weiter. 
Jedesmal, wenn sie SALOME hören, 
müssen Sie den Aktionsknopf 
drücken, um die nächste Runde zu be- 
ginnen. 

Punktwertung 

Die Punktanzeige ist unten links im 



Bild eingeblendet und mit „P" gekenn- 
zeichnet. 

Rechts daneben ist mit „Z" gekenn- 
zeichnet der Zeitbonus eingeblendet. 
Dieser Zeitbonus hat zu Beginn jeder 
Runde den Wert 2000 und verringert 
sich im Laufe des Spieles. 
Hat der Zeitbonus den Wert er- 
reicht, so stirbt die Entenmutter eines 
ihrer 5 Leben. 

Wenn Sie die Kirsche erreicht haben, 
so erhalten Sie 1 000 Punkte. 
Haben Sie die Kirsche den Entenkin- 
dern gebracht, so wird der verbleiben- 
de Zeitbonus Ihrem Punktekonto gut- 
geschrieben. 

Für jeden, Würfel, den Sie gesammelt 
haben und auf die andere Seite des 
Flusses gebracht haben, erhalten Sie je 
nach Farbe: 
weiß: 20 Punkte 
blau: 40 Punkte 
rot: 60 Punkte 

grün: 80 Punkte 

auf Ihrem Punkte konto gutgeschrie- 
ben. 

In der oberen linken Ecke des Bild- 
schirmes ist die Anzahl der Reser- 
veenten angezeigt. Wenn alle 5 Enten 
gestorben sind, wechselt der Bild- 
schirm die Farbe auf rot, und SALO- 
ME erklingt. Drücken Sie jetzt den 
roten Aktions knöpf, um ein neues 
Spiel zu beginnen. 
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Mother-DUCK 

TI 99/4 fl 
+ TI Extended BRSIC 
+ Joystick 

<c) 1984 Volker Becker 
Steinbacher Strafe 18 
6376 Oberursel 6 
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11 REM *************************** 

12 REM 

13 REM 

14 REM 

20 GOTO 80 i i H i ■ FU > » H2 " Bi ' i B2 « < 
8ND » • ST ii SM * < T >* VGL ■ * WFRRBE ' ' X 
30 CALL BILD • « CALL CHRR ■ ■ CALL CHHRSET 
L0R ! ■ CALL DELSPRITE : ' CRLL ENTE • • CALL 
40 CALL J0Y8T ' < CALL KEY » ' CALL LOCHTE ' 



C0LR '-■ D 
■ , Y ■ ■ Z 
* CALL CLERK 
GCHRR ' • CALL 
CALL MPT ION 



K 



RUNDE 



8 



POSITION 

50 
80 

89 

m 

91 
92 
93 
94 



CRLL PUNKTE « « CALL SRLOME « « CALL 8CREEN 
CALL SPRITE • ■ CRLL TITEL ' ' CRLL WALD 

PUNKT-a i i ZEITOM8 • ' DUCK>4 • ■ WÜERFEL-8 • • STRTUS"0 
OPTION BASE 1 

DIM V(6),COL(10>,FARBE(4>,B(4) 
DATA 16.5.7.13 
(IßP- 

RESTORE 91 
FOR 1*1 TO 4 n READ COUR '' FRRBE< I >C0UR '■ > NEXT I 



I 

ZW 

i ' CHUL COINC i i CALL 

GRAPH •• • CRLL HCHRR 
« CALL PATTERN ■ i CRLL 

CALL SOUND 



CO 
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110 CALL CLEflR >» CRLL CHRR8ET •• CALL SCREENC4) 

125 RANDOW ZE 

130. CALL GRRPH 

458 CALL TITEL« RUNDE, B« >> 

455 CRLL BILD 

456 CRLL CHRR«7S, "03070507031F23272F2F275302020206C0E8fl0E0C0F8C4E4F4F4E4Cfl404040 
60" ) 

460 CRLL WRLD«V« ), FARBE« >* RUNDE ,COL« >) 

462 CRLL PUNKTE« ZEIT, PUNKT) 

465 CRLL 8PRITE«#1,36,2,42,128> 

470 CALL SALQf1E«B< >, 1 ) 

800 CRLL CHRR«68, "000000000Q000000072F3FlF040e0000000000000000307CF0C0E0E080C000 

00" ) 

810 CALL CHRR«72, ll 000800000000073F0F8808000B00000B08808888000030FC30" ) 

1000 CRLL POSITION« #1, Z, S> 

1005 ZE1T-ZEIT-2 ' ! CRLL PUNKTE« ZEIT, PUNKT >■ ■ IF ZEITO0 THEN CRLL ENTE«DUCK,ZW, 

SU , WFflRBE , I , FARBE« ) , STATUS )n ZE I T»2008 

1007 IF DUCK<0 THEN 9000 

1010 CALL .JOYST«l,X,Y)< < IF X«8 THEN 1100 

1020 IF X*4 THEN CRLL PRTTERN« tt 1 , 68 )ELSE CRLL PATTERN« #1 ,36) 

1100 IF X*8 ÄND Y*8 THEN 1110 ELSE CRLL SOUND« -30,-6,0) 

1110 IF Z<58 THEN 2000 ELSE 3000 

2000 IF Y*4 AND Z<38 THEN Y-0 

2005 IF STATUS» 1 THEhf 5800 

2010 CALL M0TI0N<#l,-Y*i.5,X*1.5> 

2020 GGTÖ 1000 

3000 IF ZH06 THEN 4000 

3005 CALL C0INC«RLL,8T>: = IF ST THEN CRLL ENTE« DUCK, ZW, SM, WFARBE, I, FARBE« >, STATU 

S) 

30 1 CRLL NOT I OH« # 1 , - Y*2 > X*2 ) ! » GOTO 1 000 

4600 fl«INT««2+7)/8+l)= •■ D«INT<«S+7V8+l>«i-IF fl>24 OR D>32 OR D<1 THEN CRLL ENTE 

« DUCK , ZW > 8W , WFflRBE , I , FARBE« ) .* STATUS > ' ■ GOTO 1 000 

4020 CALL M0TI0N<#lj-Y*i.5,X*1.5> 

4040 CRLL GCHRR«R,D,VGL)- - IF «VGL>135 AND VGL<148)0R« VGL>39 AND VGL<42 >THEN CRL 

L ENTE« DUCK, ZW, 8W,HFRRBE,I, FARBE« >, STATUS >■ - GOTO 1000 

4060 CALL KEY«1,T,S>:; IF T"18 THEN 4100 ELSE 1000 

4100 CRLL MUT ION« #1,0,0) 

4105 IF STATUS«! THEN 1088 

4110 FOR 1*11 TO 20 

4120 CALL C0INC«#1,#I,12,ST) 

4130 IF ST THEN 4208 

4140 HEXT I 

4150 GOTO 1008 

4200 CALL PÜSITION<#I,ZW,SW)n WFflRBE-COLC 1-10 >> ' CRLL DELSPR ITE< # 1 ) " STATUS«! 

4210 DATA 261 .. 329, 391 , 523, 38600, 323, 391 ; 323, 261 

4229 RESTORE 4210 

4238 FOR K»l TO 3 ■• • READ SND «« CALL SOUND« »258, SND,0) « ■ NEXT K 

4248 GOTO 1880 

5000 WUERFEL*WUERFEL+1 

5082 CALL NOT ION« #1,0,8) 

5005 STflTUS-0 

5010 CALL HCHRR«2,3,181,WUERFEL> 

5012 CALL PUNKTE« ZEIT, PUNKT) 

5013 FOR K»0 TO 30 «« CRLL SOUND« -258, 523, K, 440, K )■ • NEXT K 
5015 PUNKT"PUHKT+20*WFflRBE 

5820 IF WUERFEL-10 THEN WUERFEL-8 " CRLL HCHRR«2,3, 128, 10><- GOTO 6088 

5030 GOTO 1800 

6080 CALL COLOR« 18,2,11,11,2,11)': CRLL MOT I ON« # 1 , 8 , 8 > ■■ > CALL LOC ATE« # 1 , 4 , 285 ) 

6085 RESTORE 4210 

6887 FOR K«l TO 9 < ! READ SND « • CALL SOUND« -258, SND#8>' ' HEXT K 

6010" PUNKT»PUNKT+1000 ■• CRLL PUNKTE« ZEIT, PUNKT) 

6020 CALL KEV«l,T,S)i ■ IF T«18 THEN 6838 ELSE 6820 

32 , : , : : ,, : Computronic 




f*tm^ 



6030 CRLL DELSPRITEC#28)'« CRLL COLORC 10, 11, 11, 11, 11. 11 ) 

6040 CRLL P0SITI0N<#1,R2,B2>' » CRLL POSITION* #2, fll,Bl )«« fl*INT<<R2+7V8+l )* ■ D-I 

NT<<B2+7V8+i> 

6050 IF fl<l OR R>8 OR D<1 OR D>32 THEN 7000 

6068 CRLL GCHRR*R,D,VGL)> * IF VGL«122 OR VGL-123 THEN 7500 

mi% CRLL MOTION* #2, < R2-R1 V4, * B2-B1 V4 ) 

6080 CALL J0YST*1,X,Y)* ' CRLL MOTION* #1,-Y*1„ 5, X* 1.5)» > CRLL SOUNEX-30,-6i0)' i I 

F X*4 THEH CRLL PRTTERN*31,68)EL8E IF X«-4 THEN CRLL PRTTERN* # 1 , 36 ) 

6090 CRLL CÜINC*#1,#2,I0,8T)' = IF 8T THEN 7000 

6100 ZEIT-ZEIT-2 «I- CALL PUNKTE* ZEIT, PUNKT )■ i IF ZEIT<=0 THEH 7000 ELSE 6040 

7000 CRLL MUT I ON< # 1 , , , #2 , , ) ■ ■ CRLL ENTE* DUCK , ZW , SM , WFflRBE , I , FRRBE* ) , ) 

7005 -IF DUCK<8 THEN 9090 

7010 CRLL HCHflRCl 6* 1,32,256)«« GOTO 460 

7500 CRLL MOTION* #1,0, 0,#2, 0,0)' < CRLL DEL8PRITE*#2> 

7505 PUNKT-PUNKT+ZEIT " ZE1T»0 n CRLL PUNKTE« ZEIT. PUNKT )'= ' 2EIT*2Ö00 

7507 FOR K»0 TO 30 »• CRLL SOUNDC -250,523, K,440,K)" NEXT K 

7510 RUNDE*RUNDE+1 ■ » IF RUNDE>10 THEN RUNDE« 10 

7520 CRLL HCHRRCl 6, 1,32,256) 

7530 GOTO 460 

8000 CRLL ENTE*DUCK, ZW,8W, WFflRBE, I, FRRBE* ), STATUS) 

8010 GOTO 1000 

9800 CRLL DELSPRITECRLD" CRLL SCREEN<7>" CRLL 8AL0ME*B< ), 1 ) 

9010 GOTO 80 

27999 !SP+ 

28080 Süß TADEL 

28001 GOTO 28010 ■ • R " L > '• I " CRLL SOUND *' !J2P~ 

28010 DRTR 750,195,250,220,500,233,500.195,1000,277 

28020 RE8T0RE 28010 

28030 FOR 1*1 TO 5 n RER'D L,fl > ■ CRLL SOUND*L, A,8)' ' HEXT I 

28035 !I2P+ 

28040 8UBEND 

28050 SUB PUNKTE* ZEIT, PUNKT) 

28051 !ÖP~ 

28060 DISPLRY RTC 24, 1 )<U8ING "■ P '■ ###### Z '■ ####"« PUNKT/ ZEIT 

28070 !6P+ 

28080 SÜßEND 

28208 SUB ENTE*DUCK,ZW,8W,WFRR6E,I, FARBE* >, STATUS) 

28201 GOTO 28210 ■■ CRLL TRDEL «> !tfp- 

28210 CRLL MOTION* #1,0,0) 

28220 CRLL PATTERN* #1,72) 

28230 CRLL TRDEL 

28240 DUCK-DUCK-1 

28245 CRLL HCHRR* 1,3, 128,4 ) 

28250 IF DUCK<«0 THEN 23265 

28260 CRLL HCHRRC 1,3,121, DUCK ) 

28265 CRLL SPRITE* #1,36, 2, 42, 128 ) 

28267. IF DUCK<0 THEH CRLL DELSPRITEC»! ) 

28268 IF STRTU8s0 THEN 8UBEXIT 

28269 CRLL 8PRITE*#I,96,FARBE*WFARBE),ZW,SW,8,0)< * 8TRTUS=0 

28270 !SP+ 

28271 8UBEND 

29000 SUB TITEL* RUNDE, 6* )) 

29001 GOTO 29010 > ■- Z« > < I < > P < < CRLL MRGNIFY • ■• CRLL VCHRR ■■ ! ßP- 
29010 CRLL BILD 

29020 DRTR 98, D, 114, U, 130, C, 146, K 

29035 CRLL MRGNIFY<2> 

29040 DISPLRY RTC 9,9 )SIZE< 12) • " MOTHER " ■' DISPLRY RT( 14, 9)SIZE(12)< " 

29050 CRLL VCHRR* 1 , 1 1 , 32 , 4 > > : CRLL VCHRR* 1 , 22 , 32 , 4 ) 

29053 DISPLRY RT* 24,3? i "12 1984 BY VOLKER BECKER" 

29055 RESTORE 29020 

2906S FOR 1*1 TO 4 n RERD P,2* «i CALL SPRITE* #I,ASC*ZSO, 11,81,P>" HEXT I 

Computronic , — — 33 



INS^^ 



i s ■ « stv • • j • ■ f ep~ 

391 , 466, 1 , 329, 391 .. 2, 349, 440 , 1 



29070 DISPLAY RT< 18, 1 >■ "BEGINN BEI RUNDE <1-10> ' " «« CALL SALOM£<B< ),5) 

29080 flCCEPT AK 13. Z? >SI2E< 2 )VRLIDATE< DIGIT > ! RUNDE 

29090 IF RUHDE<1 THEN RUNDE* 1 

29100 IF RUNDE>10 THEN RUNDE« 10 

29110 CRLL HCHARU6, 1,32,288 )' v CALL DEL8PRITECRLL5 

291 IS !£P+ 

29120 SUBEHD 

30990 8UB SALOME<B< ),KY) 

38001 QXTO 30010 " HZ ••'■ I i ' J = « K • ' Ml • '• M2 

30Ö10 DATA 2,220,261,349,440,6,261,440,2,2:93,466 

30020 DRTR 4,195,233,293,391,6,233,391,1,349,440,1 

, 391 , 466, 2, 466, 587, 2, 39 1 , 466 

30040 DRTR 2,220,261,349,440,8,440,698 

30045 DRTR 2,220,261,329,440,6,523,659,2,329,523 

38050 DRTR 1,195,233,293,391,4,391,466 

30055 DRTR 1 , 233, 261 , 329, 440 , 2, 391 , 466/1 , 329, 523 , 1 , 261 , 448 , 1 , 195, 233, 293, 391 , 1 , 3 

29, 391 , 2, 391 , 440, 1 , 329, 391 

30060 DRTR 1,195,233,293,391,2,233,293,2,261,329 

30065 DRTR 2,220,261,349,440,7,261,440, 1.. 30000, 30000 

30070 DRTR 2,220,261,349,440,6,261,440,2,293,466 

38075 DRTR 4, 195, 233, 293, 391 ,6, 233, 391 , 1 , 349, 440, 1 , 391 , 466 , 1 , 329, 391 , 2, 349, 440 , 1 

,391,466,2,466,587,2,391,466 

30085 DRTR 2,220,261,349,440,7,448,698,1,30000,30000 

DRTR 4, 220, 261 , 349, 440 , 6, 440, 698 , 2, 39 1 , 659 , 6, 329, 523, 1 , 391 , 466, 1 , 440, 523 

DRTR 2,195,233,293,391,4,440,554,2,440,523,2,261,440 

DRTR 2, 220, 261 , 349, 440, 8, 220, 349, 

RESTÖRE 30010 

RZ>STV«0 

READ K i > IF K=0 THEN 30100 

READ B<I),B<2),B<3),B<4) 

FÜR 1*1 TO K 

FÜR J*i TO 4 

STV-STV+1 «■ IF 8TV>RZ THEN READ AZ,M1,M2 " STV-1 

CRLL 8OUND(400,M1,5,M2,4,B<J>>9>" CALL KEY<KY,T,S)" IF SO0 THEN SUBEXIT 

NEXT J < • NEXT I 

GOTO 30110 



30087 

3099 t 
30093 

3010Ö 

30105 

30110 

30115 
30120 
30130 
38135 
30140 
30150 
30160 
30170 
30200 

31000 
31100 
31165 
31170 
31180 
31190 
32)j ' 
31195 
31197 
31199 
31200 
31218 
31211 
31212 
31215 
31229 
V; i i CALL GCHRRC Z , 8P+ 1 , V< 3 ) > • 



CRLL PYRAMIDE 

10,192)'' CALL HCHRR< 8, 1,120, 



I«P+ 

SUBEHD 

SUB BILD 

GOTO 31165 i* CALL PYRAMIDE *« IffiP- 

CRLL C0L0R<i3,i,ll>'< CRLL HCHARC1, 1, 128,224) 

CRLL COLOR(10, 11, 11,11, 11, II, 14, 13,1,2,7,1)' '• 

CALL COLOR<10,2,11,11,2,11) 

CRLL CÜLÜR<9,5, 11,12,7, 11)' . CRLL HCHRRC9, 1,U 

CRLL HCHRRC 1 5, 1 , 1 20 , 32 ) 

CRLL HCHRRU,3,121,4) 

CRLL HCHRR<7, 5,122)» ' CALL HCHRR<7,6, 123) 

!@P+ 

SUBEHD 

SUB WflLD<V< ), FARBE«: ), RUNDE, COLC >) 

GOTO 31212 " C '■ ■■ I : : K ' • SP ■'• ' Z > '• IttP- 

CALL MRGNIFYC3) 

FOR 1*1 TO RUNDE+2 

Z*RND*5+16 »» 8P«RND*30+1 " CALL GCHARCZ,SP,V< 1 ))" CRLL GCHRR<Z+i,SP, V-T.2 



CALL GCHRR<Z+2,3P,v 

TO 6 i 



KFi 



31222 

31223 FOR- K«l 

31224 NEXT K 

31225 CALL HCHAR<Z,SP, 136)" 
ALL HCHARCZ+1,SP+ 1,139) 
31230 CALL HCHAR<Z+2,8P,40)' 
31315 FOR lall TO 20 



CALL GCHRR< Z+ 1 , SP+ 1 , V< 4 ) ) 
CALL GCH RR< Z+2 , SP+ i , V< 6 > ) 



IF V(K)<>32 THEN 31220 

CALL HCHRR< Z+ 1 , SP ,137)' 



CALL HCHRR< Z , 8P+1 , 1 38 ) " C 



CALL HCHRRt Z+2, 8P+1 , 41 ) " NEXT I 
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31320 2*INT<RND*S+16)- 8P=INTCRND*29+1 >«.« CALL GCHRR<2,8P, V< 1))- * CRLL GCHRPXZ+ 
1 , SP, VC 2 > ) i « CALL GCHRRC Z, SP+1 , V< 3 ) > « > CRLL GCHAR< 2+1 , SP+1 > \K 4 ) ) 

31322 CRLL GCHRR< 2+2, SP, V<5)) = * CRLL GCHRRX 2+2, SP+1, V<6)) 

31323 FOR K»i TO 6 *• 1F VCKX>32 THEN 31329 

31324 HEXT K 

31325 OINT<RND*3+l)i ' COLCI-10)"C •' CRLL SPR ITE<# 1,96, FRRBE(C), 2*8-7, SP*8~7) 
31327 CRLL HCHRRXZ,8P,33,2>; « CRLL HCHRR<Z+1,8P,33,2 ) 

31338 HEXT I 

31340 CRLL SPRITE( #28, 124,7, 1,205) 

31345 CRLL COLORU0, 11, 11, 1 1, 11, 11 ) 

3 1 358 CRLL SPR I TEC #3 i , 1 40 , 1 1 , 65 , 240 ) ■ < CRLL SPR I TE< #4 .. 1 32 , 11,81,5): = CRLL SPR I TE< 

#5,140,11,97,240) 

31369 IF RUNDE >i THEN CRLL 3PRITEC#6, 132, 11,81, 70) 

31370 IF RUNDE >2 THEN CRLL SPR ITEC #7, 140, 1 1,65, 180) 
31388 IF RUNDE >3 THEN CRLL SPRITE* #8.140, 11/97; 170) 
31390 IF RUNDE >5 THEN CRLL SPRITEC #9, 132, 1 1,81, 175) 
31400 IF RUNDE >7 THEN CRLL SPRI TEX #21 , 140, 11,97,40) 
31410 IF RUNDE >* 10 THEN CRLL SPRITE<#22, 140. 11,65,30) 

3 1 420 CRLL MUT I DHC #3 , , -< 8+RUNDE ) , #7 , , -< 8+RUNDE ) , #22 » 8 , -< 8+RUNDE ) ) 

31430 CRLL MOTIOhK #4, 9, 4+RUNDE, #6,0, 4+RUNDE, #9, 0, 4+RUNDE ) 

3 1 448 CRLL MOT I ON< #5,0,-0 +RUNDE ) .■ #8 , , -< 1 +RUNDE ) > #2 1 , , -< 1 +RUNDE ) ) 

31445 CRLL SPRITE< #2, 76, 14, 193,8,0,0) 

31447 !8P+ 

31450 SÜßEND 

3£000 SUB PYRAMIDE 

32001 ! SP~ 

32010 DISPLRY RT<3, 24 >SIZE<2)«"hi M > ■' DISPLRY RTC4,24)SIZE<3)< " Jkl" '■ - DI3PLRY R 

T<5,23>SIZE<.4)s n Mrmo" '• • DISPLRY RK6,23)SIZE<5)- "pqqrs." 

32920 D 1 SPLRY RT< 7 , 23 )S 1 ZE< 5 ) = " t tttu " 

32025 !@P+ 

32039 SUBEND 

32040 SUB GRAPH 
32045 !ÖP~ 

32080 CRLL CHRR<100,RPT$<"F",16))' t CRLL CHRRC 120, "66FFF9FD9FBFFF99" ) 

32097 CRLL CHRR<33,RPT$< "0", 16)) 

32 1 00 CRLL CHRRX 96 , " 0000000 1 02040S0C0R09080804020 1 00Ö080804020 1008 1 62848888898R0 

C086" > 

32182 CALL CHARU36, "0I03070FiF03070FlF3F7F0FiF3F7FFF80C0E0F0F8C0E0F0F8FCFEF0F8F 

CFEFF">" CRLL CHRRX 49, RPTÜK "03",8))< ■ CRLL CHAR<41, RPT$< "C0",8)) 

32105 CRLL CHRRC 128, RPT»< "0" , 16 ) ) 

32130 CRLL CHRR< 104, " 000 10204080C0R09804020 1008 18284808001 4224 180C1H2888894A2C 18 

0C1R2" > 

32135 CRLL CHRRC 124, "00000000001F3F7F7F7F7F7F3F3FlF0000000608i0204080E0F0F0F0F0E 

0C000" > 

32140 CRLL CHAR< 108, " 00060000008080800000000 10204080C948888492H1C081C80808040201 

00818" > 

32150 CRLL CHflRC 1 12, "0H090808 1 4224 1802R49888894R2C1802843888894R2C1 8800000000000 

00980" ) 

32155 CRLL CHRR< 140, ' , @00@00000000e803FDFF070300000000000000002060EiF3FFFEFFF3C18 

00000") 

32156 CRLL CHRR< 132, "00000000040687CFFF7FFFCF8302000000000000000000C0BFFFE0C0000 

00000" ) 

32160 CRLL CHRR(116,"CiR2948888492RlC808080808000000008" ) 

32170 CRLL CHRR< 36, "0000800000000C3E0F030787010300000000000000000000E0F4FCF82060 

0900" ) 

32180 CRLL CHRR( 121, "00060FBCFC1 01800") 

32196 CRLL CHRR(101,"1028446C54543810 n ) 

32200 CRLL CHRRX 122, "617942FF341B0E078CEF10FFBC5870E0") 

32210 CRLL CHRR<64,"3C4299RlR199423C n ) 

32220 !ßP+ 

32300 SUBEND 
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Topprogramm 

Fressmann ist natürlich eine Pacman- Version. 
Unser hier abgedrucktes Programm, welches 
ohne Programmerweiterung lauffähig ist f 
steht der Originalversion jedoch in nichts 
nach. 



Als Topprogramm auser- 
wählt von der Redaktion. 

Der Spieler steuert seinen Fressmann 
mit Joystick. Fressmann wird von drei 
Gespenstern gejagcL Fette Punkte, die 
im Labyrinth herumliegen, dienen 
Fressmann wie Gespenstern gleicher- 




maßen zur Nahrung. Nach dem Ver- 
zehr eines — fetten Punktes - ist Fress- 
mann kurzfristig in der tage, ein Ge- 
spenst zu verschlucken. Ab und zu 
tauchen Früchte auf, bei deren Ver- 
zehr ein fetter Punkt neu ins Feld ge- 
legt wird. Am Ende des Spieles wird 
der Score und während des Spieles 
nur die Bonuspunkte ausgedruckt (aus 
Geschwindigkeits- und Speichergrün- 
den). 



Programm Teil 1 



18800 

iööiö 
106 28 
, 
1Ö038 

1004Ü 

1 ÖÖ50 
10860 
10670 
1Ö075 

1Ö080 
100ÖS 
1Ö100 
10118 

10150 
10160 

.■254 

10170 
20000 

20180 
202Ö0 
20300 



DRTR24 , 24 , 24 , 24 , 24 , 24 , 24 , 24 .. , , , 255 , 255 , , 3 , , 0,0,0,31 , 3 1 .. 24 , 24 , 24 

BATRÖ .. ö ■ , 24S , 248 , 24 , 24 .. 2:4 , 24 , 24 , 24 ,248 , 248 .. 8 , , 8 , 24 , 24 , 24 ,31, 3 1 , , , 8 

HR TR24 , 24 , 24 , 3 1 , 3 1 , £4 , 24 , 24 , 24 , 24 , 24 , 248 , 248 , 24 , 24 , 24 , 24 , 24 , 24 .. 25 5,255, , 

BflTHÖ ,0,0, 255 , 255 , 24 , 24 , 24 , , , , ö , 24 , 24 , 24 , 24 

DRTR24 , 24 , 24 , 24 , , , © , , ö , @ , ,24© , 240 , , , , 8 , .< 8 , 15,1 5 , * .- 

HRTR2S5, 255, 255, 255, 255, 255, 255, 255, 56, 124, 182, 146,254,254,254, 170 

DRTR8, , 8 , 24 , 24 , 0, , , 24 , 36 , 96 , 80 , 72 .• 76 , 204, 1 92 

DRTRö , 6 , 25 , 1 20 , 248 , 240 , 240 , 96 , 1 4 s 1 7 , 1 24 , 254 , 254 , 254 , 1 24 .- 56 

ORT R8 , , 60 , 6 ö , b , , .. 

IiRTRöb, 68, 202, 238, 130, 130, 254, 170, 255, 231 , 231 , 129, 129, 231 , 231 , 255 
H R T RÖ , .. .. ,0,0,0 .. 

DRTR56 , 1 24 , 254 , 252 , 248 , 254 , 1 24 , 5b , 28 , 62 , 1 27 ,63,31, 1 27 , 62 , 28 

HRTR36, 1 10, 255, 255, 255, 255, 126, 60, 60, 126, 255, 255, 255, 255, 1 10, 36 

DflTfiSS , i 24 , 254 , 254 , 254 , 254 , 1 08 , 36 , 8 , 56 , 1 24 , 254 , 254 , 254 , 236 , 1 00 

DRTR8, 0,56, 124,254,254,254,236,0,0,0,56, 124,254,254,254,0,0,8,0,56, 124,254 

HRTR8 , , , , .. 56 1 1 24 , 254 , , , , .. , , 56 , 1 24 , 8 , , ,0,8 , , , 56 

F0RT-7168T07351 = RERBB : POKET, B = HEXT 

F0RT=7424TÜ7527 : RERBB : POKET , B : NEXT 

F0RT«?52STü753 1 : POKET , : NEXT 

FORTa0TO79 ■ S«PEEK<33152+T> : PÜKE7552+T, 255-O0RS/2? : HEXT 



Programm Teil 2 

20 PÖKE36878, 15 : P0KE36879, 8 
22 PRI NT "NPPPPPPPPFPPPPPPFP 
28 PR I NT " NPERRRRDPBRR RPUPPP 
34 PR I NT Ei HP PPPPPPPßP@ SPSPS P 
48 PR l NT " NRRRCF£CPPPPaPPP@P 
46 PR 1 NT " NRRRLFtlRRRRÜ PB l RLP 
52 P R I N T * '' N P @ PG PE DP §P @ P P PPS P 
58 PR I NT " NPÖPPPPPPPPSP@fiP@f 



: P0KE36869, 255 : PRINT"3aHNNHNNNNHNNNHHNNNNHNNN" .: 
PPPHNPBflflflfllflflflflfiflCPBCPJPNHPefB ! I" SaPPPPPFSFEBPaPi 

pePNNPPPPPPppeppppapBLP(llPNHRflRLP^1f : lflGPBCP@pepplaPN ,, 

BÜPNNPMRfiflflL.PaP@@PaP@PEDPNNPPPPPPPPERHGPKP@PFPPN" 
MRRNNfififlBPEBPMfifiHRflRBPPPPPPPPFPPPPPPPPPPPPFPJPBN" 

ßpeNNPPPPPPPPPP@peeppp@p@NHPBflCPBCPjpepEDPjpepeN" 
epeHNPepeppppepePBCPeF^PENNPaPEflRRflDpepespapeppN" 

FCPNNPKPIIfiflflflflfiBPeaPKPEBPNHPPPPPPPPPPPPeePPPPPPN" 
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64 PRINT ,i NNNNNNNNNNNNNNNHNNNNN" ; : P0KE8185, 14 : P0KE38985, 6 : PÜKE37154, 12? 

67 ZX» 1 NT < RH B Q > #466 ) + 7 703 : 1 FREE K < 2X ) 1 6THEN67 

76 F ORT = 7 783 T OS 1 6 3 : I F P E EK < T > - i 6 T H E N POKE T +3Ö72 Ö , 7 

128 HEXT : P=3 : fl$( 1 ) » " V 1 000 " : RS C 2 ) = " V 1 598 " : Fl$ < 3 ) ™ " V2008 " : RS (4 )«" V3800 " : G-36876 : POK 

EZX.20 

i 36 Gl =8835 : G2=7866 : V2 <1 > = 1 : V£ C 2 > »- 1 : V2 C 3 > =22 ; V2 i 4 ) =-22 : U 1 =4 : G3=8003 : V3 < 1 ) s " 1 : V3 < 

2>*-i 

140 V3<3>=22 = V3<4)=-22 = U2=3 : 1=1*8154 : 035 - BN» 15 = P0KE38586, 5 

2Ö0 F0Rß«lT07S:REflIIX..Vl :FOR0«lTOX : POKEGii32:Gl=ei+Vl = P0KEG1 . BN : PÖKEG2.. 16 = G2«G2+V 

20J1> 

32 I FU 1 <3T H E NGO!" 7 Ö 

330 I FPEEK < G 2 > < 1 5 T HENG2=G2~ V2 <. U 1 > = U 1 * I NT C RND C 1 > #4 > + 1 

340 PÜKEG2,BN:P0KEG3, 1S:G3=G3+V3(U2) : I FPEEK ( G3 X 1 5THENG3*G3- V3 OJ2 ) :U2» INT (RHD(i) 

#4> + l 

36 P Ü K EG 3 , B N : l F G 1 = flOR G2 =R Oft G3« Fl T HEN4000 

405 T=PEEK<37151 ) : IFPEEKC37152 )=i 19THENP0KEH, 32 : R-fi+1 : B=~l : C=33 : G0T0436 

418 IFT=110THENPÜKER,32:R=fl--l = B»1 : C=34 = GOTO430 

415 l F "!"= 1 1 ST HENPO KEfi , 32 : fi=R +22 : B=~22 : C=36 : G0T0438 

420 I FT s i 22THENPQKEH , 32 ; R-fi -22 = B =22 : 035 

430 IFPEEK(flX32THEN800 

440 POKER, C : NEXTÜ, Q - RESTORE = GOTO260 

780 I FPEEK <G2+22)>15THENU 1=3 : BN=15 : G0T0338 

710 I FPEEK CG2-22>>15THENU 1=4 : GOT 0750 

738 GOT 0338 

756 IF8=0THENIFftNIK 1 )*10>7THENPOKE7866v INT(RND< 1 )*3) + 17 : S=l : GOTO3Ö00 

?Siä IFS"i"HENS=S+l : 1FS=4THENP0KE7366, 32 : S=8 

770 GOT 033Ö 

888 I F P EE K ( R > > 1 4 T HEN98 8 

828 R=R+B:GOTÜ440 

980 IFPEEK<fl)al6THEhlP0KEü, 245 = E«E+10 : POKEG, 8 = G0T0448 

968 IFPEEKCfiJ«*17THENE=E+i000 : 1=1 = GOTG2008 

96 5 I FPEEK < R > = 1 ST HENE=E+ 1 58 8 : I =2 : GÜTO2808 

970 IFPEEK<:fl) = 19'THEHE=E+2000: 1=3 ; GOTÜ20ÖÖ 

388 l FPEEK < R >=20T HENPO KEG , 240 : E-E+280 : BN-2 1 : POKEG . 8 : GOTO440 

982 IFPEEK'::Fi>=21THENE=E+3008 ■ 1=4 : GOT 02000 

985 I FPEEK < R ') = :i. 5 THEN4088 

9 9 ö PO K E G , Ö : GO T 4 4 8 

2888 POKER.. 34 : F0RQ5-1TQS = PRlNT ,, aWiiiMil ,, fl*< I ') ■ POKEG 1 . 15 ■ PÜKEG2, 15 : PGKEG3, 15 

2Ö48 FORO1*200TO250STEP8 = POKEG, Ol : F0RT=1TÜ13 : NEXTT. Ol : PRINT ,, »M*i»MWNNNN" 

2855 POKEG 1 , 21 ■ P0KEG2 j 21 : PQKEG3, 21 : FORO2=258TO280STEP-8 : POKEG, 02 : FORT» 1 TOI 3 : HEXT 

T,02,Ü5 

2068 I F I =4THENR=8 1 54 : BH= 1 5 : GÜT02 1 88 

2878 PO KE 79 11,28 

2 1 88 PO KEG , = GÜ TO 4 40 

3088 POKEG, 23Ö : F0RF»1T015 : NEXT : POKEG > 228 : F0RF=1T015 : NEXT : POKEG , 240 : FORF«1T029 : NE 



3820 P K E G , 8 : G T 7 60 

4 8 88 I F BN=2 1 T NENE s E + 3 8 8 8 : I = 4 : G T 2888 

4020 P=P™1 : 3=8 : F0Rt1«37TÜ45 = POKER, M = POKEG, lÖ0-<M-37)#5 = FORF«1TO150 = NEXT : POKER. M+2 • 

4858 FORF=1TO150 : NEXTF, M : POKEG, 8 : IFP=0THENPRINT "»•iM*»W"E ,, ll " : WRIT197, 64,. 255 : R 

UN 

4 1 28 RESTORE : POKEG 1,32: P0KEG2 , 32 : P0KEG3 , 32 : P0KE7749+P , 32 : GOTO 1 38 

30888 DflTR5 j 22 ,9,1,9 , -22 , 5 .- 1 , 3 , 22 , 3 , 1 , 3 , -22 .■ 1 , - 1 , 7 , -22 , 2 , - 1 , 5 .- -22 ,1,1,2. -22 , 3 .• - 1 

, 6 , 22 

30018 BRTR2..-1. -5,-22,3,-1,3,22, 3, -22, 3, 1,2, -22, 5, -1,2, 22, 7, -1,4, -22, 14, 1,9,22.9. 

—22 

30820 BRTR3 , 1 , 5 , 22 , 5 , - 2.'£ , 2 , 1 , W , 22 ,3,-1, 1 2 . 22 , Z , - 1 . 5 . ""2!^ , 3 . ~ 1 . '6 . 1 . 2 . ""ZZ >2j 1.3, ™2'2 

,18,1 

30838 BRTR5 , 22 , 3, 1 , 3 , -22 ,2,1,5, 22 , 7 , - 1 , 2 , 22 , 2, - 1 , 7 , -22 ,9,1,5,-1,5, -22, 4 , -1 . 2 , -22 

.«4.1 

38840 BRTR2 , -22 , 2 , 22 , 3 . 1 , 2 , 22 , 7 ,-1,7,1,1, 22 , 3 , 1 . 3 , - 1 , 2 , 22 , 9 , 1 , 12.-1,5, 22 , 3 * 1 

3005Ö BRTR3 , -22 ,2,1,5,22, 7 , - 1 , 3 , -22 
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Outlaw 

für VC- 20 ohne Speichererweiterung 

Ein Action-Spiel für Wildwest-Fans. Spielen 
Sie gegen den Computer. 

werden. Dies geschieht durch Druck 
auf den Feuerknopf. Bonuspunkte gibt 
es für eine getroffene Spielfigur. Bei 
erfolgreichem Spiel für alle 4 getroffe- 
nen Spielfiguren. Bei Outlaw muß zu- 
erst „Outlaw Res." geladen werden. 
Nach Ablauf des Programmes, wel- 
ches die Zeichendatas enthält, wird 
Outlaw einfach mit „load" nachgela- 
den und gestartet. Gesteuert wird mit 
Joystick. 



Nach dem Vorspann muß der Spieler- 
cowboy - also Ihre Figur - versuchen 
den Computercowboy zu treffen. Fel- 
sen und Kakteen dienen beiden als 
Deckung. Wird eine Figur getroffen, 
wird sie bewegungsunfähig {Schuß ins 
Bein) oder sie wird ganz vernichtet. 
Als Spieler stehen Ihnen 6 Schuß Mu- 
nition im Revolver zur Verfügung. Ist 
der Revolver leergeschossen, muß er 
bei der Munitionskiste nachgeladen 




1 i DRTR56 , 254 > 56 , 1 6 .< 254 f X 86 .■ i 86 , i 86 > X 86 * X £4 .« 1 88 , 46 , 40 .< 48 , 4ö , 1 88 

1 028 BAT R0 , .. , * 56 , 254 , 56 , X 6 , 56 , 59 ^ 62 , 56 , 1 24 , 62 .. 226 ,131 

1 039 DflTftÖ .- ö . > .. 28 .« i 27 .. 28 .. 8 , 28 , 2 20 , 1 24 .. 28 , 62 , 1 24 , 7 i , 1 93 

1 040 DRTR24 . 2? , 2 1 3 , 2 1 9 > £23 , 248 .• 24 1 24 , 24 , 27 / 2 1 3 , 2 1 9 » 25 1 .« 3 1 . 24 ^ 24 . , 8 , 26 , 26 , 1 4 , 24 , 

Sj 24 

1 050 DfiTR 1 ,7.15,31.« 63 , 63 , 1 2? , i 27 , 1 27 , X 27 , 1 27 , 63 , 1 5 , 7 , 3 , 

1 066 DRTR224 , 224 .. 224 .. 224 , 1 92 .• 1 92 . 1 28 . X 28 1 X 28 .< 1 92 , i 92 . 1 92 1 1 32 , 224 . 224 .« 224 

1070 DfiTfl 1 27 , 255 , X 9 1 , 1 7 7 , 1 52 , 1 52 , 49 , 49 , X 92 , 1 92 .. 1 28 > 1 28 , 1 92 , 1 92 , i 28 , 1 28 

i 088 DRTR0 ,8,8. 28 , 62,1 i 8 , 224 .. 224 , , 8 , , , , 8 .. 1 .. 63 

1090 DRTR254, 255, 253 .141.25,25, 140,148,3,3. l.;L3/3, 1. 1 

1 1 60 BAT R8 .. Ö ..16, 56 . 1 24 , 11 ü , 7 , 7 , , , , , , , 1 28 , 252 

1110 DRTR8, 128,8,28, 190, 118,224,224, 14.63.. 14.4, 15, 14, 14.* 63 

1120 HRTR0, 1. 16,56, 125, 118,7.7, 1 12. 252, 1 12,32. 248. 112, U2, 252 

1 1 30 DRT R 1 86 , 1 24 . 1 08 , 40 , 40 .44, 32 , 96 , 1 86 .124,1 08 , 40 , 40 ,104.8,12 

1140 DRTRSb, 254,56, 18.251. 185, 191, 184, i84, 124, 108,40,40,40,40,68 

1150 DR "I" R28 , 1 27 , 28 , 72 . 223 . 1 57 , 253 . 29 , 29 , 62 , 54 , 20 , 20 , 28 , 20 . 60 

1160 ÜRTR219, 195, 126,36, 108, 188, 108, 36, 8. 0, 0,0, 0,8, Ö, 0, 126, 135,219,219,90,90,90, 

219 

1162 DRT R24 , 2 4 , 1 26 , 1 2b , 24 , 24 ,24.24 

1178 DRT R240 , 1 44 , 1 35 . 244 , 54 , 1 82 , 247 , 8 , 8 , . 1 89 . 37 , 53 , 53 , l 89 , 8 , 8 , . 222 , 1 8 , 1 58 , 1 52 , 

158,0 

1188 BRTR120,72,72, 123. 122. i87. 107,0,0,0.0.247,84.86,86,8,0.0,8,224,168, 172, 172, 

8 

1190 DRTR0.242, 146.247.255,247, 146,242,0,0, 17, 31 , 16,31 , 1,8 

128Ö HRTR0. 0.15.31. 63,31 . 15, 0. 8. 0. 248, 248. 232, 248, 248, 8 

1218 DRTH0 , 255 , 8 , , 8 , 8 , 8 , ö , 1 44 , 34 , 85 , 40 , 44 , 58 , 1 27 , 255 , 9 , 68 , 1 78 , 20 , 52 , 98 , 254 , 255 

1 220 DRTH62 , 34 , 38 , 58 , 58 , 58 , 62 , 

1 23Ö DR TR 28 . 4 , 4 . 1 2.12,1 2 . 38 , , 62 , 34 , 2 , 62 , 48 . 48 , 62 , , 38 , 2 , 2 , 38 ,6,38, 62 , 8 

1240 DRTR32 , 32 , 36 , 36 , 62 ,12,12 , 8 . 38 . i 6 . 1 6 , 30 , 6 , 38 , 62 , 8 , 62 , 32 .32,62, 58 , 59 , 62 , 8 

i 258 DRTR62 , 34 , 4 , 8 , 24 . 24 , 24 , 8 , 30 . 1 8 , 1 8 . 62 , 50 .. 58 , 62 , 8 . 62 . 34 , 34 .« 62 . 6 ,6,62,0 

1 260 BRTR 1 24 , 68 , 254 , 68 , 68 , 254 , 68 , 1 24 

308Ö FORfi«? 1 68TÜ7639 : RERüB : POKER , £ : HEXT 

18 POKE3SS79.ö:pRINT"r3«S»lB»Mi»IS ## OUTLRW ## 
15 PRINT"i»M»l "8PC(li> 



15 PKlNi f: 3»WiS "SFCdD" *B >JI1« iJilill MMl Üill ,! 

28 PRIHVÄKtö <C> 1983 Bv M. KRRUS" = PÜKE 198.8 = WRIT 198, 1 

180 PRINT'TJlSeia mX 8 &■'<. 60 iß" :PQKE36869,255:PÜKE36879.. 127:PÜKE38905,0:PÜKE7 



701 , 

1 20 PÜKE3842 1,0: FORA* 1 T028 : PR I NT " IS 

7& f 15 



i " ; [HEXT ■ W«30726 : P0KE368 

160 T 1=36876 : T2*T1-1 : T3=T1+1 : F0RR»1T0RND< 1 >#3+ 4 = E«7726+INT<RND< 1 )#1S)*22+RHD< 1 ># 

17 

165 IFPEEK<EK>320RPEEKtE+lK>320RPEEK<:E+23>O320RPEEI«B+22)O32THEHR«fi-l = G0T017 

1 70 PÜKEB, 9 = POKEB+22, 18 • POKEB+23, 1 1 = POKEB+1 , 12 

1 75 HEX T : F OR R = 2 T Ü 2 8 : F ÜR B = i "i" ü 3 = C - 7 68 2 + fl#22 + R NJJ( 1 ) * 1 8 
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195 IFPEEK<;C)O320RFEEKCC+l >O320RPEEKU>l >O320RPEEK<X-44)O32THENBaB-l =GOTO205 

20 P OK E C .. RH D i 1 > # 2+6 : P KEC+ W .■ 5 

2@5 HEXTE .. fl = FORT* 1 TO500 : HEXT : PR I NT " ■ VUMirKT TAB < 19)" WXMMRGm" : FORT» 1 TO 1 008 : HE 

XT:fi-19 

268 F0RB»iT07:fl-fl-l:PRINTTflB<B>" VUUMII fHTTflBCflVHX MIMRQ m" -FORT" 1 TOI 50 : HEX 

TT , B 

270 FORT=iTÜ506 = NEXT : PRINTTflB £8) * , P0aaSTMHWIMI1NflflRQ:T ; = FORT*1TÜ500 : NEXT : R~8 = PRI 

nt":t' 

300 F0RB»i2T018 = fl«fl-l:pRINTTflBCB>" POHMI MNITT : PRINTTflBCflV'ST KHHRQ TT' 

340 F0RT*iT015ß:NEXTT.B:PRINT" t ] fit 7TT; 

35Ö FORT*iTO7Ö0:HEXT :fl=i0ipRIHT"n M : F0RB«liT019: fl»fl-l 

36Ö PRINTTflBCftV'D Millt TT 1 : PRIHTTftB<B>" [Hill £m" : FÜRT» 1TO200: NEXTT, B 

390 PRINT"@ Mm Ti :püKE8i84.32 : PüKE8162,32 : PüKE8185,i : PÜKE8163,0 : ZK~.,8 

395 PRI NT"»« HB8 BF3 BfiS BFB l»|:3 IF3 ti33 B9QS IFS ■"; 

45Ö POKER. 32 : PDKER+22, 32 : B-8163 : R-8142 : F»22 = G=0 : H~22 : RM-60 

5Ö G B F / £ + 11 ; F « - F 

5 1 ö X=RNB >:: 1 > * 1 2 ■ l FB+X*F<7702üRB+X*F>8 1 63THEN500 

520 IFX<5THENH«22 : F»22 : 0=6 

550 FÖR V« 1 TOX : POKEB+G # 32 " B«B+F : PÜKEB , = POKEB+22 , 1 

585 I FPEEK C B+ 1 > 032RNBRND C 1 > >ZXT HEH 1 000 

615 POKET 1 , 240 : T=PEEK<37151 > = IFT*1 lSFIHBfttS 141THENP0KET2. 240 : POKER, 32 : fl»fl+H 

620 IFT=122fiNBR>7702THEHPÜKET2, 240 = POKER+22, 32 = R-R-H 

625 IFT-94THEN1500 

630 POKER, : POKER+22, 1 : PÜKET1 , : PÜKET2, : NEXTV : GOTO500 

7Ö0 PRINT"»Mi»WI ,, SC ,, «"SPC<15?RM"II " ■ RETURN 

1000 P0KET2, 128 = 11=06+20 : N=B+1 : PÜKEB, 4 = POKEB+22, 5 = Z~l = POKET2, 6 

1Ö10 FORK-HTONSTEP-i : IFPEEKCIOO32THEN3000 

i 030 POKEK f 1 97 • POKEK+ 1 , 32 : HEXT 

1 500 Ü~Q+ 1 = I FQ>6RNDPEEK ( H+24 > O58THEH630 

1 505 PGKET2 , 1 28 = PGKET 1 , = M«fl+24 = N=fi+43 : Z=~ 1 • POKER , 2 : POKER+22 * 3 : POKET2 t 

1510 FORK«riTON : IFPEEKXK)O32THEN3000 

1530 POKEK, 1 97 = POKEK- 1 , 32 = HEXT : POKEK- 1 , 32 : PGKET3, : GOTO630 

3000 P0KEK+Z,32: V»PEEK<K> : IFV=58THENQ«0:flrisflM-6 : GOSUB700: IFflM<0THEN5200 

30 1 U-PEEK i K+W > • POKET 1,8= P0KET2 ,0:1 F V>8THENP0KET3 , : 8GT0638 

3030 POKEK+W , 2 = FÜRT« 1 T03Ö : POKET 1 +2 , 1 5-T/2 : POKEK , 46 : PÜKET3 , 1 80-T = POKEK , 47 : NEXT : PG 

KEK+W.U 

3050 IFV«8THENP0KEK, 32 : PüKEK+W, 6 = IFZ=-lTHENSC=SC+4 

3052 IFV=6ÖRV-?THENP0KEK,8: IFZ—1THENSOSC+2 

3055 IFV*lflNDZ=iTHENH=0 

3056 t F V» 1 RNBZ-- 1 THEHF =0 = 3C-SC+ 1 

3057 P0KET3 , = POKET 1+2,15=1 FZ»- 1 THENGO8UB700 

3058 IFVa0flNDZ*lTHENMl*Ml+l : ÖOSUB4000 : P0KE7679+M1 , 32 > fi«8142 : IFM1-4THEN5000 
3060 IFV«0RND2=-lTHENM2»M2+liGO8UB4100:POKE7698+M2.32:B-ei63:lFM2-4THEN5100 
3400 GOTO630 

4000 POKER, 34 = POKER+22, 42 : POKER+23. 41 

4610 F0RS«7724T0R-66STEP22 = POKES-22, 32 : POKES, 33 : POKES+22, 31 : FORT-1TO80 : NEXTT, S 

4020 POKER-22, 43 = POKEfl-21 > 44 : POKER+22, 32 = PÜKER+23> 32 : FORT»1TO4Ö0 : NEXT = POKEfl-21 , 3 

2 

403Ö F0R3»fl-66TÜ8186STEP22 • POKES-22, 32 : P0KE8, 33 : PÜKES+22, 31 : FORT-1TO80 = NEXTT , S : R 

ETURN 

4100 POKEB, 34 : POKEB+21 , 42 = POKEB+22. 41 : SC-SC+20 : GO8ÜB708 

41 10 F0RS=7745T0B-66STEP22 • POKES-22, 32 = POKES, 33 = POKES+22, 31 = F0RT=1T086 • NEXTT. 8 

4120 PÜKEB-23, 43 : PÜKEB-22, 44 : POKEB+21 , 32 : POKEB+22, 32 : FORT-1TO400 : NEXT : POKEB-23, 3 

4130 FORS-B-66TO8207STEP22 : POKES-22, 32 = P0KE8. 33 : POKES+22, 31 : FORT«1TO80 : NEXTT, 8 : R' 
ETURN 

5000 fl*=" ":PRINT"3atRWWS« a f, fl*"N>»i*l 10 fl M E V E RS« »»i»i"R$ 

S01Ö PRlNT"JäHfSSI*W HGfllN <V/N> ? " 

5020 WR IT 197,64,64= 3 VS58648 : IFPEEKC197)»11THENRUN 

5040 ENB 

5100 M2=0:PRINT ,, ar'SPCaS)' , aaS" :SCsSC+30:RM=£0:ZX*ZX-, 1 : GOSUB760 = GOTO450 

5200 P0KET3 , : HM=60 = GOSUB700 = V™0 : Z= 1 = GOTO3058 
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Der Archäologe Frank sucht nach wertvollen 
Gegenständen der antiken Stadt - Athen -. 



Nachdem er einen verdeckten Ein- 
gang zu einer Höhle ausfindig machen 
kann, bereitet Frank die Fundstelle für 
die nötigen Ausgrabungen vor. Aufzü- 
ge werden montiert und die Höhlen- 
wege erweitert. Nach den Vorberei- 
tungen will Frank endlich die wertvol- 
len Funde bergen. Aber - allerlei Ge- 
fahren und Hindernisse gefährden im- 
mer noch die Ausgrabungen. Gefährli- 
cher Treibsand und große Termiten - 
häufen machen ihm am meisten zu 
schaffen. Doch, nachdem wertvolle 
Vasen ausfindig gemacht werden, will 
Frank sie auch bergen und mit dem 
Aufzug nach oben transportieren. 
Durch Berühren des Aufzuges fährt 
Frank nach oben. Nach unten kann er 
den Aufzug nicht benutzen, statt des- 
sen springt er von Etage zu Etage. Das 
Spiel hat drei verschiedene Bilder. 
Wenn alle drei bewältigt wurden, be- 
ginnt das Spiel wieder mit dem ersten 



. M . .. A , 



33 p<k:kX^><><>ck 



M -. M 



i J V ! v ? VVS 



•vTS 






^-v-s 



x x x x 
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Bild. Die Steuerung ist wie folgt: >J< 
links, >K< rechts, >I< oben, >M< unten. 
> Space < isf springen. Sie können Ihre 
Sprungrichtung durch: >S< (links) und 
>D< (rechts) verändern. 
Die beiliegenden Daten müssen wie 
folgt eingegeben werden: 



Teil 1 

10 forI = 24576 to 24944 

20 input A (eine Date) 

25 poke I, A 

30 next I 

40 print CHR$ (4); „BSAVE JUMPER. 

OBJ, A$ 6000, L 400" 



Listing Teil 2 

9/0/ 19/0/60/0/96/0/ Ü33/0/ 114/0/143/0/175/0/206/0/238/0/45/45/45/45/53/223/219/21 
9/ 14/ 77/73/ 169/27/223/27/ 159/73/45/ 109/209/27/63/255/83/ 105/73/ 14 1/25 1/21 9/27/23 
/77/73/73/62/63/63/63/63/6/0/13/13/ 13/ 13/254/219/219/ 110/73/73/254/219/219/ 110/1 
3/13/13/254/31/31/31/110/73/73/254/219/219/110/73/73/254/31/31/31/6/0/50/14/45/3 
2/28/55/0/241/14/30/14/30/14/30/14/30/6/0/9/45/141/27/31/191/9/45/141/223/223/10 
/ 45/ 45 / 2 1 3 / 59 /255/ 78/ 45 / 1 4 1 / 27 7223/87/ 77 / 1 4 1 / 27 / 255 / 55 /0 / 9 / 45 / 1 4 1 / 59 / 3 1 / I 59/ 9 /45 
/ 1 4 1 /223/ 223 / 1 / 45 / 45 / 2 1 3/ 59 / 255 / 78 / 45 / 1 4 1 / 25 1 /25 1 / 74 / 77 /2 1 / 255/ 255/ 2 / 0/ 73 / 1 37 / 
/73/45/77/21 8/251 / 255/74/41 / 109/209/223/223/83/41 /45/ 109/218/59/255/87/9/45/77/3 
0/63/223/191/109/73/137/0/73/45/77/218/255/223/74/41/109/209/219/223/87/41/45/10 
9/26/31/63/223/106/41/109/209/255/27/191/73/73/41/6/0/77/45/77/254/59/255/51/77/ 
45/77/62/223/223/55/ 13/45/45/ 13/254/59/255/5 1/77/45/77/254/255/255/ 110/77/105/62 
7255/27/63/6/0/0/0/0/0/2/0/6/0/46/0/9/45/45/ 141/25 1/31/31/87/41 745/ 109/218/59/25 
5/83/9/13/77/218/59/255/19/45/45/45/45/254/31/31/31/110/13/13/13/62/63/63/63/55/ 
0/73/73/73/218/27/255/155/73/109/77/218/31/255/159/9/109/45/141/59/31/255/191/10 
5/77/13/21/31/31/255/63/46/13/13/45/13/62/255/59/255/6/0/0/1/ 



Listing Teil 3 





REM 


************** 


1 


REM 


* JUMPER * 


2 


REM 


* — COPYRIGHT-* 


3 


REM 


* — 1984 VON — * 


4 


REM 


*-J O E R N — * 


5 


REM 


* — R E D E R-* 


6 


REM 


************** 


9 


GOSUB 12000 


10 


HOME 


: TEXT 


11 


POKE 


768,173: POKE 



POKE 768,173: POKE 769,48: POKE 770,192: POKE 771,136: POKE 772,208: POKE 
773,4: POKE 774,198: POKE 775 5 7 
12 POKE 776,240: POKE 777,8: POKE 778,202: POKE 779,208: POKE 780,246: POKE 
781,166S POKE 782,6: POKE 783,76: POKE 784,0: POKE 785,3: POKE 786,9 



40 



Computrbnic 




15 PRINT "BLOAD JUMPER. OBJ" 
30 DIN A*<28, 19): GOSUB 10000 

50 A = .I31:B = i:Al = 13:bi = 0:M = 
60 POKE 232,0: POKE 233,96 
70 CR = 3 
80 AS - 120 
90 LV = 1 

95 X = FRE (0) 

96 ET = - 1 
100 X = PEEK ( 

IF X = 203 THEN 
IF X = 202 THEN 



XDRAW 6 AT B.A 



110 
120 
125 
130 
140 
150 
160 
170 



- 16384) 

GOSUB 500 
GOSUB 600 



IF X = 160 THEN GOSUB 700 

IF A*(B1,A1) = "5" THEN GOSUB 1000 

IF A*(B1,A1 + 1) = "3" THEN GOSUB 600 

IF A*<B1,A1 + 1) = "0" THEN GOSUB 1100 

IF SC = AS THEN GDSUB 3000 

IF X =211 THEN RI = - 1 

IF X = 196 THEN RI = 1 



190 

200 

500 



180 

185 FF = FRE (0) 

IF LV > 3 THEN 

GOTO 100 

IF Bl = 27 THEN 
503 RI = 1 

506 POKE - 16368,0 
510 IF A*(B1 + 1 5 Ä1> 
520 IF A*(B1 + 1 ? A1) 
530 XDRAW M AT B f A 
540 B = B + 10: Bl = Bl 
550 XDRAW M AT B,A 

RETURN 

IF Bl = THEN 
$1 = - 1 

POKE - 16368,0 

IF A*(B1 - 1,Ä1) 

IF A*<B1 - 1 5 A1) 

XDRAW M AT B,A 
640 B = B - 10:B1 = Bl - 
650 XDRAW M AT B ? A 

RETURN 

XDRAW M AT B 5 A 
710 M = M + 2 
720 
725 
726 



560 
600 
603 
606 
610 
620 
630 



660 
700 



GOSUB 1600 



RETURN 



= "2" THEN 
= "4" THEN 

+ l:M = 6 



RETURN 



Ü000 

GOSUB 900:A*(B1 



+ 1,A1) = "0 



— ii --> ii 



THEN 

THEN 



5000 
GOSUB 900:A$<B1 - 1 5 A1) 



i:M = 5 



B = B + RI * 10:A = A - 10:B1 = Bl 
IF Bl > 27 THEN Bl = 27: B =271 
THEN Bl = 0:B ~ 1 



+ RI:A1 - AI - l 



IF Bl 



XDRAW M AT B 5 A 



730 

740 FOR I = 

750 

760 B 



1 TO 2 

XDRAW M AT B 5 A 
~ B + RI * 10SB1 = Bl 



-:l 



765 IF Bl 

766 IF Bl 
770 XDRAW M AT B,A 
780 NEXT I 

790 XDRAW N AT B,A 



27 THEN Bl = 27; B = 
THEN Bl = 0:B = 1 



?71 



800 A - A 

805 IF Bl 

806 IF Bl 



- 10:B = B + RI * 10:A1 = AI 
> 27 THEN Bl = 27: B = 271 
< THEN Bl = 0:B = 1 



+ i:bi - Bl + RI 
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810 M - M - 2 
820 XDRAW M AT B,A 
830 POKE - 16368,0 
833 S = 1 

835 IF A*(B1,A1> ~ "4" 

836 IF A*(B1,A1) « "2" 

837 S = 
840 RETURN 

900 POKE 232,24: POKE 233,97 
905 IF S = 1 THEN XDRAW 1 AT B - 
910 XDRAW 1 AT B + RI * 10 - 1,A 
920 POKE 6,50: POKE 7,5: CALL 768 

6,100: POKE 7,5: CALL 768 

: POKE 7,5: CALL 768 
930 SC ~ SC + 10 

POKE 232,0: 

RETURN 
XDRAW M AT B,A 

FDR I 

XDRAW 
FOR T 



THEN GOSUB 900: A* (Bi , AI > = 
THEN 5000 



1,A 
1 



1SA*<B1,A1) = "0": GOTO 920 



POKE 6,200: POKE 7,5: CALL 768: POKE 
POKE 6,10: POKE 7,5: CALL 768: POKE 6,230 



940 

950 

1000 

1010 

1020 

1030 

1035 
1040 
1045 A = I 
1050 NEXT 



POKE 233,96 



= A TO A ~ 20 STEP - 10 



9 AT B, I 



NEXT T 



1 TO 10: 
POKE 6,A: POKE 7,5: CALL 768 

XDRAW 9 AT B, I 



1070 
1075 
1080 

1100 

1103 
1105 
1110 
1115 
1120 
1130 



XDRAW M AT B, ISA = I:Ai = 
ET = ET + 1 



INT (A / 10) 



RETURN 

IF A = 131 THEN 5000 

XDRAW M AT B,A 

FOR I = ft TO A + 

XDRAW M AT B, I 

POKE 6, 180: POKE 

FOR T= 1 TO 10: NEXT T 

XDRAW M AT B, I 
1135 AI = AI + 1 
1140 NEXT I 
1145 A = I 

XDRAW M AT B,A 

IF A*(B1,A1 + 1) 



20 STEP 10 



7,3: CALL 768 



1146 
1150 
1155 
1160 
1300 
1310 
1320 
1330 
1600 
1610 



= "0" THEN 5000 



IF A*(B1,A1) = 

RETURN 

VTAB 22: 

VTAB 22: 

VTAB 22: 

RETURN 

REM BOMBE BEWEBEN 

IF X* « ,,M THEN P 



4" THEN S = l: GOSUB 900: S = 



HTAB 14 - 
HTAB 27 - 
HTAB 39 - 



LEN 
LEN 
LEN 



< STR* 

< STR* 
( STR* 



(SC) > : 
(CR) ) : 

(LV)): 



PRINT SC 
PRINT CR 
PRINT LV 



A - l:L = i:Pl = 0:Y1 =0: IF ET / 2 = INT (ET 



260: X* = M X M :Yl = 



/ 2) THEN PI 

IF L - 1 THEN 1620 

BOTÖ 1630 

IF PI < 
XDRAW 3 AT P1,P 
REM 
XDRAW 3 AT P1,P 

- i: if xi < 

1660 PI = PI + Yl 

1665 IF PI = - 10 OR PI = 280 THEN X* = 



10 



1612 
1615 

1620 L = 0: 

1626 

1630 

1640 

1650 XI « A 



> 260 THEN PI = 10: Yi = 10: X* = "X 



> P THEN X* = "": RETURN 



RETURN 
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1670 XDRAW 3 AT Pi,P 

1680 IF INT <P1 / 10) = Bl AND INT <P / 10) - AI THEN 5000 

1690 RETURN 

3000 REM LEVEL GESCHAFFT 

3005 AS = AS + 320: SC = SC +■ 200: 60SUB 1300 

3007 ET - 1 

3010 FOR I = 255 TO STEP - 5 

3020 POKE 6,1: POKE 7,5: CALL 768 

3030 NEXT I: FOR I = TO 255 STEP 5 

3035 TEXT 

3040 VTAB 22: HTAB 1: PRINT " Score: 00000 Credit: 03 Level : 00 " 
3043 LV = LV + 1 

3045 SOSUB 1300: FOR I - 1 TO 12: VTAB 24: PRINT : POKE 6, I * 10; POKE 7 
,5: CALL 768: NEXT Is FOR I = 1 TO 3000: NEXT I 

3046 LV = LV - 1 

3050 SOSUB 10000 

3060 A = 131:B - l:Al - 13:B1 - 

3070 POKE 232,0: POKE 233,96 

3080 XDRAW 6 AT B,A:M = 6 

3090 RETURN 

5000 if A*<B1,A1 + 1) < > "0" THEN 5050 

5003 X* = "" 

5005 IF A = 131 THEN 5050 

5010 XDRAW M AT B,A 

5020 A = A + 10: AI = AI + 1 

5025 POKE 6, AS POKE 7,5: CALL 768 

5030 XDRAW M AT B,A 

5040 GOTO 5000 

5050 XDRAW M AT B,A 

5060 ROT= 16S B = B + 10 

5065 IF B = 281 THEN B ~ 271 

5070 XDRAW 6 AT B,A 

5080 FOR I - i TO 2000: NEXT I 

5090 CR = CR - 1 

5100 IF CR ~ THEN 6000 

5110 XDRAW 6 AT B,A; ROT= 

5120 B - l:A - 131 :B1 = 0:A1 - 13 

5130 M = 6: XDRAW M AT B,A 

5140 POP : GOTO 100 

6000 TEXT : HOME : VTAB 12: PRINT " SCORE: H s SC; " LEVEL: "JLV 

6010 FOR I - 1 TO 5000: NEXT I 

6020 RUN 

10000 HSR2 

10010 SCALE= l: RGT= 

10016 LV - LV + 1 

10020 FOR T = TO 14: FOR I = TO 27 

10030 READ A*<I 5 T) 

10035 IF A*CI,T) = "0" THEN 10090 

10040 IF A*U°T) = * s i» THEN POKE 232,0: POKE 233,96: XDRAW 1 AT I *"l0, 

T * 10 + l: SOTO 10090 
10050 IF A*(I,T) - 8E 2" THEN POKE 232,24: POKE 233,97: XDRAW 2 AT I * 10 

,T * 10: GOTO 10090 
10060 IF A*U,T> = "3" THEN FOR Q = T * 10 TO T * 10 + 9 STEP 2: HCÜLOR- 

3: HPLOT I * 10,0 TO I * 10 -4- 9 ? q : NEXT Q: SOTO 10090 
10070 IF A*(I,T) = "4" THEN POKE 232,24: POKE 233,97: XDRAW 1 AT I * 10 

»T * 10: 60T0 10090 
10080 HCOLOR= 3: HPLOT I * 10, T * 10 TQ I * 10,T * 10 + 9: HPLOT I * 10 + 

9,T * 10 TO I * 10 + 9,T * 10 + 9 
10090 NEXT I,T 
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m 



**#* 



10091 
10092 
1 0095 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 

10190 

10200 
10210 
10220 

10230 
10240 
10245 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 

10405 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10565 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12075 



READ W: IF W = - 99 THEN RESTORE 

RETURN 

REM DATEN FUEft BILD 1 

DATA 0, 0, 0,0, 0*0* 0,0* ^5 0*0,0, 0, 0,0, 0*0* 0,0, 0,0,0,0,, ?**» «'S 5 ? 

DATA 

DATA 

DATA 

DATA 

DATA 



1 5,1,1,1,1*1,1,1*1*1*3,3,3, 1,1, 1,1, 1,0,0,0, 1,1*3,3,3,1 

;mm5mm; ;m;mam,m,m i m.j.m. 

2 5,0,0,0,0,0,0,2,0*4,0,0,0,0,0,0*0*2,0,0,0*4,0 

1 1 1 1,1, 1,3,3,3, 1,1, 1,1, 1,1.5» 1, 1,0,0, l,i, 1,1,^,1,1 



0:0;4,0,0,0,0*0*0,0,0*0,0,^2^^,0,0,0,0,2 0,0,5 4 
1,1,1,1,1,3,3,3,1,3,3,3,1,1,1,1,1,1,1*3,3,1,1,1,1,1,1,1 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 5 

5™*^ 0* T^^X 0, 0, ^ ^' ' ' *^t , «'S'^S , S'« , ? , 0'0 ; , 

DATA 0,0,0,0*0,0,0,0,0,0,^^^2,0,4,0,0,0,4,0,0,0*2,0,0,0,0 
DATA 0,0, 0,0,0,0,0,0,0*0,5, 1,1, 1,1, 1,1, 3,3,3,1, 1,1, * »*-*»* '* 

data 0;*:*;»-*-*p*p*-».«-5-!-?-?-?-M;-''!;-!:';';';-;-S'; i ; > 2 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 5 

REM DATEN FUER BILD 3 „„«„„„ ,* 

DATA 0, 0,0, 0* 0, 0* 0*0* 0*0. 0*0, 0* * 0,0, 0*0* 0,0,0, 0,0,0,0,0,0,^ 

DATA 0,0, 0,0, 0,0, 0,0*0, 4, 0,4,0, 0,0,0, 0,0,0*0*050*0*0,0^^4,0 

DATA 0,0,5, 1, 1 , 1,1,1*3, 1,3,3,3, 1,3,3,3, 1,3,3, 3, 1,1 ^*U\* l'lsi 

DATA «.**■ 5,0,0, 0, 0,0,0, 0,0, 0,0* 0,0, 0,0*0* 0^5 0*0, 0*0, 0* » » 

DATA 0,0,5,0,0,0,4,0,0,0,0,0,0,4,0,0,0,0,0,0*0,0*4,0,0,0,0,0 

DATA 0,0,3,3,3, U 1,1,1, 0,0*0* 1,1* 1*^*3, 3, 3,3,3, 1,1, 1,1,5,0,0 

DATA 0, 0,0, 0,0,0,0, 0,0, 0,0* 0,0, 0,0» 0,0,0,0,0,0,0,0*0,0^^^ 
DATA 0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,4,0,0,2,0,0,0,0,0,0,^*0,0 
0,0,0,0,0,0*0*5,1,1,1,1,0,1,3,3,3,1,1,1,1,1,0,0,1,1*0,0 

0, 0,0, 0,0, 0*0, 5, 0,0,0, 0,0,0, 0,0, 0*0* 0*0*0* 0, 0,0» 0,0*0,0 

0,0,4,0,0,2,0,5,0,4,0,0,0,0,0,0*2,0,0,0,4,0,0,2,0,0,0,0 
1,1,1,1,1,1,1*1,3,3,3,0,3,3,3,3,3,1,1,1,1*1,1*1,3,3,5,0 

0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0*0, 0,0,0»0*0»'0» »0»0^^ 
0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,2,0,0,0,0,0,2,0,5,0 

1, 1,0,0,0, 1,0,0, 0, 1,0, 1, 0, 1,0» *» » l,!,!*!*!»!» * 1 » 1 ' 1 * 1 
„99 



0;0;0;0:0;0;0,0,0,0,5,0,0,4,0,0,0,0,0,0,0,4,0,0,0,0,0,0 

ß ^ l.l' 1,1, 3,3, 3, 1,1, 0,1, 1,1, 3,1, 1,3,3, 1,1, 1,1, 3, -,3, 3 

0:5:0 0,0,0,0,0,0,0,0,0,0»0»0-0»^ »^ ^^'^i'^^ 

0,5,0,4,0,0,0,0,4,0,0,0,2,0,0,0,0,0,4,0,0,0*4,0,0,0^0,0 
0,5,3,3,3,3,0,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,0,3,5,0 

0,5,0,0,0,0, 0*0,0*0, 0,0,0,0*0,0*0,0*0»0»0*0* » * ' j3 ' J ' ßi 
0,5,0,2,0,4,0,0,2,0,2,0,0,0,0,0,2,0,0,4,0,2,0,0,0,0,5,0 

1,1,1,3,3,3,1,1,1,1,3,3,1,1,5,1,1,1,1,1,1,3,3,3,1,1,1,0 
0^0 0,0, 0,0,0,0*0, 0,0,0,0,0,5, 0,0,0,0,0,0,0,0»0»0»0»^0 

0, 0, 2,2, 2, 0,0,0,0,0,0*2, 0,0, 5, 0,0,0, 0,2,4,0, 0,0, 4, 0,^,0 
Ul, 1,1, 1,1,3,3, 3, 1,1, 1,1 ,1,3,3, 1,1, 1*1, 1*1, 1*1 ,1*1* 1»1 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA - 
HOME : 
VT AB 3: 
VTAB 4: 
VTAB 5: 
VTAB 6: 
VTAB 7: 
VTAB 8: 
VTAB 9: 



TEXT 
PRINT 
FR INT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



##### 
#" 
#" 

# # 
# # # 
### 



VTAB 10: PRINT 



# # # # ###** ### * # # " 
###### ## # ##" 

# # # # # # ##### #" 

# # # # # # # #" 

# 
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1 2080 


VTAB 11: 


PRINT " 


12090 


VTAB 12; 


PRINT " 


12100 


VTAB 13; 


PRINT " 


12110 


INVERSE 


: FOR I - 


I 


: PRINT " 


•*: NEXT 


12120 


FÜR I = 


1 TO 15: 


" 


": NEXT 


I 


12130 


NORMAL : 


VTAB 17; 


12140 


VTAB 19; 


PRINT " 


12150 


VTAB 21: 


PRINT " 


12160 


VTAB 22: 


PRINT " 


12165 


POKE - 


16368,0 


12170 


WAIT - 


16384j 128 


12180 


RETURN 





# 
# 
# 

1 TO 40: VTAB l: HTAB I: PRINT 
I 
VTAB I: HTAB 1; PRINT " 

PRINT " Beschrieben von Joern Reder 
Copyright (C) 19 8 4" 
Um zu spielen Taste druecken" 



VTAB 15= HTAB 



VTAB l: HTAB 40; PRINT 




Tic - Tac - Toe r ein interessantes, dreidimensionales Strategiespiel 
für den Apple II r erfordert strategisches und logisches Denken. 



Mit unserem ausgedruckten Pro- 
gramm ist es möglich, in dem inter- 
essanten dreidimensionalen Stra- 
tegiespiel „Tic - Tac - Toe", teil- 
weise auch bekannt als Ouibic, ge- 
gen den Computer anzutreten. Daß 
der Apple II sich hervorragend dazu 
eignet, das dreidimensionale Spielfeld 
wirklichkeitsgetreu darzustellen, wird 
aus der abgebildeten Bildschirmgrafik 
ersichtlich. 



l^\ 



'ZEILE =f 

SPALTE =4 




2EILE_:2 
SPftLTt = 4 



Die Spielregeln sind recht einfach. Es 
geht darum, vier eigene Spielsteine in 
eine Reihe zu bringen. Dabei kann es 
sich um eine horizontale, waagerechte 
oder auch diagonale Linie handeln. 
Das heißt, auch räumliche Diagonalen 
sind zulässig. Man kann also eine Li- 
nie besetzen, die von der Ecke unten 
links (vorne) bis zu derjenigen oben 
rechts (hinten) reicht. Insgesamt exi- 
stieren übrigens 76 solcher Linien, die 
einen Gewinn ermöglichen. Die Spiel- 
steine werden abwechselnd auf dem 
Spielfeld plaziert, wobei ein Spielstein 
zu jeder Zeit auf einem beliebigen Feld 
plaziert werden kann. Es sei denn, die- 
ses Feld ist schon besetzt. Das Spiel 
gewinnt seinen Reiz vor allem aus der 



Vielzahl der Möglichkeiten sowie aus 
der räumlichen Dimension, die dazu 
führt, daß man schon, sehr gut aufpas- 
sen muß, wenn man nicht vom Compu- 
ter überlistet werden will. Dieses Spiel 
schult eben auch auf recht interessan- 
te Weise das räumliche Vorstellungs- 
vermögen. 

Zur Bedienung des Programmes: Zu Be- 
ginn kann man die Spielstufe festlegen, 
auf der der Computer spielen soll. Da- 
bei ist Stufe 9 diejenige mit der größten 
Spielstärke. Danach kann man ent- 
scheiden, wer das Spiel beginnen soll. 



Bei Eingabe der Züge werden die Ko- 
ordinaten eines jeden Feldes in Ebene, 
Zeile und Spalte zerlegt. Dabei gilt: 
Ebene 1 ist unten, Ebene 4 oben. Zeile 
1 ist vorne, Zeile 4 hinten. Und Spalte 
1 ist links, Spalte 4 rechts. Sollte man 
bei der Eingabe einer Koordinate ei- 
nen Fehler gemacht haben, kann man 
mit dem Linkspfeil wieder zur betref- 
fenden Eingabe zurückgelangen. Nach 
erfolgter Eingabe aller Koordinaten 
stellt der Computer dennoch eine Si- 
cherheitsfrage, so daß man sich immer 
noch anders entscheiden kann. 



1000 


j 






1010 


: 






1020 


REM 


DREIDIMENSIONALE 


IS TIC TAC TOE 


1030 


REM 


(C) ULF SCHLICHTMANN, 1984 


1040 


« 






i 050 


■ 






2000 


; 






2010 


» 






2020 


REM 


INITIALISIEREN 




2030 


; 






2040 


* 






2050 


LOMEMS 16384 


-■ 


2060 


DIM 


F (4,4,4): REM 


SPIELFELD 


2070 


DIM 


W(76) ! REM . 


WERTE DER EINZELNEN 


2080 


DIM 


T<4.4,4.5>! REM 


TABELLE ZUEGE 


2090 


DIM 


Z*<3): REM 


KOORDINATEN 


2100 


DIM 


ZU.3): REM 


ZUEGE 


2110 


Z*(l> 


■ "EBENE ! " 




2120 


Z*(2) 


*= "ZEILE : " 




2130 


Z»<3) 


» "SPALTE: " 




2140 


DIM 


VU3)i REM 


ZUGBEWERTUNG 


2150 


FÜR 


I - 1 TO 13 





Computronic 



45 




2170 

2190 
2190 
2200 
2210 
2220 
2230 
2240 
5000 
5010 
5020 
5030 
3040 
5030 
5060 
3070 
3080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
10000 

10010 

10020 
10030 

10040 
10050 
10060 
10070 
100130 
10090 
10100 
10110 
10120 
10130 
10140 

10150 

10160 
10170 

15000 
15010 
15020 
15030 

15040 
15050 
15060 
15070 
15080 
15090 
15100 



READ V(I> 

NEXT I 

DSM S<10)S REM 

DIM M<10 P 3>3 REM 

DIM F<10>: REM 
< 

* GOSUB 35000: REM 

6ÜSUB 36000 S REM 



LINIENBEWERTUNGEN EINES FELDES 

DIE ZE-HN BESTEN ZUEGE 

DIE DAZUGEHOERIGEN ZUGBEWERTUNGEN 

TABELLE EINLESEN 
SPIELFELD AUFBAUEN 



REM EINFÜHRUNG 



HOME : VT AB 21: RR INT "WELCHE SCHWIERIGKEITSSTUFE <0-9)?" 

SET H* 

IF H* < "0" OR H* > "9" 0OTO 5060 
RR INT H*3 
LE « 10 - VAL (H*) 
HOME : VTAB 21: FR INT "WER SOLL BEGINNEN?" 
IN VERSE 2 PRINT "C"5 
NORMAL : PRINT "DMPUTER ODER "S 
IN VERSE 2 PRINT "S"! 
NORMAL : PRINT. "FIELER ? "I 
GET H* 

PRINT H*S CHR* <S> 5" 

IF H$ - "S" THEN ÖOSUB 32000: GOSUB 33000: GOTO 10140 * 
IF H* < > "C" GOTO 5150 
GOSUB 32000« GOSUB 33000 



HTAB 20 



REM HAUPTPROGRAMM 



GOSUB 150002 REM GEWINNLINIEN CHECKEN 

GOSUB 17000:: REM SPIELERSIEG? 

IF S « » 1 GOTO 26000 

GOSUB 25000 S REM UNENTSCHIEDEN? 

IF ZM - 64 GOTO 26000 

GOSUB 20000: REM COMPUTERZUG ERMITTELN 

GOSUB 31020: REM ZUG AUSGEBEN 

IF ZN ™ ! 64 GOTO 26000 

IF S « 3 GOTO 26000 

GOSUB 280001! REM SPIELERZUG EINGEBEN 

GOSUB 30000: REM ZUG AUSGEBEN . 

IF 2N « 64 GOTO 26000 

GOTO 10050 



REM WERTE DER GEWINNLINIEN FESTSTELLEN 



FOR A - 1 TO 4: FOR B " 1 TO 4 
W<CA - 1) * 10 + B) » F<A,B,1> + F<A,B,2> + F<A,B P 3> + F(A,B,4> 

NEXT B 

FOR C ** 1 TG 4 
W<(A - 1) * 10 + 4-+ C) ■ F<A«lpC) + F<A.2 f C> + F<A f 3,C> + 
NEXT C 



F<A„4 a C> 
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15110 

15120 

15130 

15140 

15150 

15160 

15170 

15180 

15190 

1520» 

15210 

.15220 

15230 

15240 

15250 

15260 

15270 

15280 

15290 

1 7000 

17010 

17020 

17030 

1 7040 

17050 

17060 

1 7070 

1 7080 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20180 

20190 

20200 

20210 



20235 
20240 
20250 
20260 
20270 
20280 



W<(A - 1) 
W<A * 10) 

NEXT A 

FOR B = 1 TD 42 
W<40 + (B - 1) * 

NEXT CS NEXT B 



* 10 + 9) 
- F<A,1,4> 



FOR 
4 + 



F<A«1 



F<A,2, 



..l) + F<A„2 P 2> + F(A,3,3> + 
3) '+ F<A,3 P 2) + F(Ä,4, 1) 



F<A„4,4) 



C 
C) 



1 TO 4 

■ F(1 F B,C) 



F(2,B.C) + F(3.B,C) + F(4,B,C) 



W(57) 

W<58> 
WC59) 
W<60> « F 

FOR B = 
WC60 + B) 
W(64 + B) 
NEXT B 
FOR C « 
W<68 + C) 
W(72 + C) 
NEXT C 
RETURN 



F(l ? 4 ? l) 
F< 1,41,4) 
F(l„ 1„ 1) 
F(l, 1,4) 



F<2,3,2) 
F(2,3,3) 

F<2,2„2> 



i Oia l| lA. jt 'in' 



5) 



F<3, 
F<3 
F<3, 



Z.2 



3) 



!) 



W , Sb" 1| .im 



F(4,i,4) 
F<4, 1, 1) 
F<4,4,4) 
F<4 H 4, 1) 



1 T 



4 

F<1 



P w» 



1) 



1 T 



F<1,B,4) 

4 
F(1 P 1,C> 

F(i,4,D 



+ F<2pB p 2> 
+ F(2,B,3) 



+ F(2,2,C) 
+ F(2,3,C) 



4- 



F (3,8,3) 
F(3 !t B,2) 



(3,3,0 

1 f) ■£- I) 



F(4pB p 4) 
F (4,6,1) 



+ F(4p4pC) 
+ F(4,1,C) 



SPIELERSIEG? 



FÜR 1 « 
IF W(I) 
NEXT I 
RETURN 



1 TO 



76 

4 TUEN 



GS 



13 «• 



REM COMPUTERZUB BERECHNEN 



FÜR 
FOR 
IF F 

B(l) 

B<2) 

S(3) 
FÜR 

8(1 + 
NEXT 

L « 

p a 

FOR 
p m p 

IF S 

IF S 
NEXT 



I « i TO 10SP(I) * 

A " 1 TO 4; FOR B 

(ApBpC) < > GOTO 20340 

« W(40 + (B - 1) * 4 + O 

« W( (A - 1) * 10 + B) 

* W< <A - 1) # 10 + 4 + C) 

I - 1 TO T<A S B,C„5> 

3) * W(T(A,B,C, D) 

I 

:j * 

INT <T(A,B,Cp5) / 2) 

I « 1 TO T(ApBpCpS) + 3 

+ V(8(I) + 4) 

(I) «4 THEN L ' - L + 15 IF 
(I) * 5 THEN J « J + l: IF 

1 



- 99:M(i,i) - 
1 TO 4: FOR C 







NEXT I 
1 TO 4 



2 THEN 
2 THEN 



P + 20 
P + 40 



FOR I = 1 TO 10 

IF P > P(I) QOTO 20270 

IF P - P<I) THEN IF RND 

NEXT I 

SOTO 20340 

IF I s 10 GOTO 20320 
FOR ü = I TO 9 



(P(I) ) 



5 GOTO 20270 
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20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 

20395 

20400 

20405 

20410 

20420 

20430 

20440 

20445 

20447 

20450 

20460 

20470 

20480 

25000 

25010 

25020 

25030 

25040 

25050 

25060 

25070 

25080 

25090 

26000 

26010 

26020 

26030 

26040 

26050 

26060 

26070 

26080 

26090 

26100 

26110 

26120 

28000 

28010 

28020 

28030 

28040 

28050 

28060 

28070 

28080 

28090 

28100 

28 1 1 

28120 

28 1 2^ 



P<U + 1> ■» P<U) 

M<U + 1,1) »" M'(U,1)!M(U + 1,2) ■ M<U,2):M<U + 1, 
NEXT U 

p<i) - p: 11(1,1) - asm < 1,2) - b:h<i,3> - c 

"nEXT CS NEXT B2 NEXT A 

SU - P< INT <LE / 2) + 1) 

SU » INT (SU / LE) 

SI » INT ( RND (PID) * SU) + 1 

Z * - 1 

FÜR U ■ 2 TO 10 

IF P(U) < 81 THEN 2 » U - ISU « 10 

NEXT U 

IF Z « "1 THEN Z = INT < RND <P) * LE) + 1 

IF Z * THEN Z * 1 

IF LE - 1 THEN Z - 1 

IF M(Z,:l) - 60TÜ 20400 
Z(0„1> « M(Z,1):Z(0,2) * M(Z P 2)SZ<0,3) » M<Z,3> 

IF P(Z) > 4900 THEN S - 3 

RETURN 



3) ■ M<U P 3) 



REM UNENTSCHIEDEN? 



FOR I - 1 TO 76 

IF W<I> < > B AND WU> < 

NEXT l 

ZN » 64 

RETURN 



> 4 8ÜT0 25090 



REM SPIELENDE 



HOME 

VTAB 21 

INVERSE 

IF 8" «1 THEN PRINT "GRATULIERE, SIE HABEN GEWONNEN. 1 ' 

IF B « 3 THEN PRINT "HURRA, ICH HABE GEWONNEN. " 

IF 8 - THEN PRINT "DAS SPIEL ENDETE DIESMAL UNENTSCHIEDEN." 

NDRMAL 

END 



REM SPIELERZUG EINGEBEN LASSEN 



FOR I - 1 TO 3 
VTAB 21 + IS HTAB 8 
GET .H* 

IF H* ■ CHR* (8) THEN IF I > 1 THEN I - I - 
IF H* < "1" OR H* > "4" GOTO 28070 
PRINT H*S 
Z <1, I) "» VAL <H»> 
NEXT I 
IF F<Z<l,i),Z(i l 2) P Z<i,3>) - GOTO 28130 



IS GOTO 28060 
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28124 

28126 
28 130 
28140 
28142 
28144 
28146 
2E3148 
28150 
28152 
28160 
28170 
28200 
28210 
30000 

zmn® 

30020 

30030 

30040 

30050 

30060 

30070 

30080 

30090 

30100 

30110 

30120 

31000 

31010 

31020 

31030 

31040 

31050 

31060 

31070 

31030 

31090 

32000 

32010 

32020 

32030 

32040 

32050 

32060 

32070 

H 
ff 

320S0 

32090 
32100 
32110 
32120 
33000 
33010 
33020 
33030 
33040 
33050 
33060 
33070 



PRINT CHR* (7) CHR* <7> CHR* <7> « 

SOTO 28050 

VTAB 24s HTAB 10S INVERSE : PRINT' "OK <J/N)"s: NORMAL 
U - 3 

HCOLOR™ IIS 80SUB 30070 
II « 3 - II 
H » PEEK < 49 152) 

IF H < 128 SOTO 28142 

IF H < > 202 AND H < > 206 THEN H « PEEK < 49 168) S GOTO 28142 

IF II - THEN HCOLOR- 02 GD8UB 30070 

IF H ™ 206 SOTO 28030 

HTAB 10! PRINT " " \ 

HCOLOR- 3 

RETURN 



REM SPIELFELD UPDATEN 



QG6UB 32000; REM SPIELER ZUG 
F(Z(l,l> s 2<l,2>s,Z(l,3)) * - 1 
PH - 75 + Z<l p 3> * 20 + <Z<1 P 2> - 1) * 10 
PV - 33 + <4 ™ Z<l t i> > * 40 - Z(l,2) * 6 

FÜR U - FH + 1 TO PH + 7 
HPLOT U,PV »- 2 TO U - 7,FV + 2 
NEXT U 
RETURN 



•GÜSUB 32000! REM COMPUTERZUG 
F(Z<0„ 1) ir Z<0,2),Z(0 !l 3> ) « 3 
PH « 75 "i" Z<0,3> * 20 + <Z<0,2> - 1) * 10 
PV - 33 + (4 - Z<0, 1>> * 40 - Z<0,2> * 6 

FÜR U » PV » 1 TO PV + 1 

HPLOT PH - 5 H U TO PH + S s u 

NEXT ü 

RETURN 



REM ZUEGE AUSGEBEN 



HOME S VTAB 21 

INVERSE 

PRINT "SPIELER: "5 : NORMAL 

PRINT "COMPUTER: "BS NORMAL 



PRINT 



IN VERSE 



FÜR I ™ 1 TO 3 

PRINT : PRINT Z*<I>|Z<1 P I>| TAB < 31 > I Z*(I> | Z <0, I>1 

NEXT I 

ZN - ZN 4. 1 
RETURN 



REM FELDMARKER DEMONSTRIEREN 



FÜR U - 31 TO 37 
HPLOT U,140 TO U 
NEXT U 



7. 144 
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33080 

33090 

33100 

331 10 

33120 

33130 

33140 

35000 

3S010 

35020 

33030 

35040 

35050 

35060 

35070 

35080 

35090 

35 1 00 

35110 

35120 

35130 

35140 

36000 

36010 

36020 

36030 

36040 

36050 

36060 

36070 

36080 

36090 

36.100 

36110 

36120 

36130 

36140 

36150 



FÜR U 
HPL.OT 
NEXT ü 
FOR ü - 
HPLOT U 
NEXT U 
RETURN 



- 141 
235, U 



TG 
TQ 



142 

245, U 



20 TQ 230 STEP 210 
137 TD U ■+. 20,137 Tu 



U 



+ 20, 147 Tu U„ 147 Tu U„ 137 



REM TABELLE EINLESEN 



FÜR A « 1 
T<A,B,C,5> * 4 
FOR I ■ 1 TO 5 
IF I « 5 QQTO 

read m 



TO 4! FOR B - 1 TO 45 FÜR C - 1 TO 4 



IF H* * 

IF H* ■ 

T(ApB,C, 

NEXT I 
RETURN 



»#" THEN 1 



H 



THEN H 



» 1 
VAL 



> "# 

l) - H 
NEXT CS NEXT BS NEXT A 



(H*)' 



REM SPIELFELD ZEICHNEN 



TEXT 

HCOLDR« 
FÜR I = 
FOR U * 
HPLOT U, 
NEXT U 

FÜR U « TO 24 
HPLOT LM + U * i 
NEXT US NEXT I 
HCOLQR- 2 
HPLOT LM,30 TO 
120.6 TO LH + 120 



HBR 



HOME : 
3:LM 
30 TO 
LM TO 
I TO U + 40.1 



150 STEP 40 
LM + 80 STEP 

24 



20 



STEP 



o 



1.1 



U TO LM + 



+ U*B/5 + i.I 



U 



LM, 150: 

125 



HPLOT LM + 80,30 TO LM + 80,150! HPLOT LM + 



36160 FOR U 



30 



TO 110 STEP 40= HPLOT LM + 40, U TO LM + 40, U + 15: NEXT 



U 



36170 
36180 

50000 
50010 
50020 
50030 
50040 
50050 
50060 
50070 
50080 
50090 
50100 
50110 
50120 
50130 
50140 



HCOLOR= 
RETURN 



REM DATEN FUER P<I) (ZUBBEWERTUNG) 
DATA 81,4,-1,0,-1,-1,2,0,-1,5,0,0,5000 
REM DATEN FUER T<A,B,C,I) 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



59<69,61,9,70,#,7i fl #,65,10,60,72,62,#,9 !l #,10 ! ,#,66,# 
63, #, 10, #, 9, #, 67, #,64, 10, 51 ,73, 74, #,75, #»68, 76, .9,!pS 



19, #»61 
73, #,74 



•; 65 P # f 20, #,69, #,70, 39, 19, 62, 71, 60, 66,20,72,* 
" 20, 57, 63, 75, 19, 58, 67, 76, #,20, #,64, #,68, #,19 9 # 
29, #,653, 61, #,30, #,73, #,74, 29, 66, 58, 75, 30, 62, 57, 76, # 
69 , > # f 70 , ,30,60,67,71,29,-63,59,72 i #,30,#,6B > tt,64,#,29,tt 
39, 65, 73, 58, 74, #, 75, #,40, 61 ,76, 57, 66, #, 39, #, 40, #, 62, # 
67*, #,40, #,39, #,63, #,68, 69, 40, 60, 70, #,71 ,#,64, 72, 39, 59 
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dorcß? 



The Basic 



Eine Basic-Erweiterung für den Commodore 
64 mit 14 Befehlen: 



Sc roll — verschiebt den Bild- 

schirminhalt nach links 
>L< r rechts >R<, oben >U< 
und unten >D<. 

CLS - "löscht den Bildschirm. 

Home - setzt den Cursor in die 

linke obere Ecke. 

Inverse - schaltet auf Inversen 
Zeichensatz um. 

Normal - schaltet wieder auf nor- 
malen Zeichensatz um. 

HTAB ... — positioniert den Cursor 
horizontal. 

VT AB ... - positioniert den Cursor 
vertikal. 

OLD - holt mit >NEW< ge- 

löschtes Programm zu- 
rück. 



MERGE - lädt ein Programm hin- 
ter ein bereits vorhan- 
denes Programm. Die 
Zeilennummern müssen 
dann jedoch größer 
sein. 

SPRITE - setzt den SPRITE mit 
der Nummer >n< und der 
Farbe >c< auf die Posi- 
tion x/y. 
, Danach kann noch nach 
belieben angefügt wer- 
den: 

>P< für Priorität 

>-*-< für x-Streckung 

>f < für y-Streckung 

>f-«-< oder >-*-f< für x- und y-Streckung 



Beispiel: 

SPRITE 3, (200, 180), 1, P, -*-f 
Spritenummer 3 wird weiß ( 1 ) auf die 
Position 200, 180 mit Priorität und x/y- 
Streckung gesetzt. 



Beispiel: 

SPRITE 0. (270, 50), 0, «~, P 
Spritenummer >0< wird schwarz auf 
die Position 270/50 mit Priorität und x- 
Streckung gesetzt. 

CLSPR - löscht "den SPRITE mit 
der Nummer >n< 



BRTR85, 32, 115.0 ,20 1,76', 240 ,77 .234. 234. 234, 234. 234. 234 ,234,234, 234 ,234 
i BRTR234, 234, 234, 234, 234, 234, 234, 234, 201, 82, 208, 18, 76, 191,160.234.234 

2 BRIR234, 234, 234, 234, 234. 234, 234, 234, 234, 234, 234, 234, 234, 201 , 85, 208, 3 
d Hfl lrV6, 3, 161, 201, 68, 288, 3, 76, 26, 161,162,11,76,19,194,234,234,234,234 

4 BRTR234, 234, 234, 234, 234, 234, 234, 234, 234. 234, 234, 234, 234, 234, 169, 192, 133 

5 BRTH2S0, 169,7, 133.251, 169, 192, 133,252, 169,219, 133,253,234,234,234,234 
b BRTR234, 234, 234, 234, 234, 234, 234, 234, 234, 234. 234, 234, 234, 234, 160, 1 , 177 
7 BRTR250, 136, 145,258,200, 177,252, 136, 145,252,200,206, 192,40,288.239, 165 
S IiftTH25Ö,S6,233,4ö.i33,25ö.l65,25i,233,0,i33.25i,165,2S2i56.233,40,133 

3 Dflrfte;52j 165,253,233,0, 133,253, 165,251,201,4, 16,205,76, 170, 193,234,234 

1 BRTR234 , 234 , 234 , 23.4 . 234 , 234 , 234 , 234 , 234 , 234 , 234 . 234 , 234 , 234 , 234 , 234 , 1 62 




2b BRiRi64,44, i33.254.i32.255. 160,3,200. 177.254,208,251,234,234,234,234 
•d? BRTR234 .. 234 , 234 , 234 , 234 . 234 . 234 . 234 , 234 , 234 . 234 , 234 , 234 , 234 > 200 , 1 52 , 24 

28 UhTRI £9 1.254. 160,0, 145,43, 165,255, 105,0,200, 145,43, 136, 162,3.230,254.208 

29 Bf I TR2 , 230 . 255 . 1 ?? , 254 , 20S , 244 . 202 . 208 , 243 , 1 65 , 254 , 1 05, 2 , 1 33 , 45 , 1 65 , 255 

30 BRTR105,0, 133,46, 165,55,164,56,133,51,132,52,165,45,234,234,234,234,234 

31 BR rfl234, 234. 234, 234, 234. 234. 234. 234. 234, 234, 234, 234.« 234, 164, 46, 133. 45 

32 DRTR132.46. 133.47, 132. 48, 133. 49. 132,50,76. 170. 193,32, 115,0,32. 36, 194 

33 BRTR142.239.207. 138,24. 105,248. 144.5. 162. 14.76.19.194,169,1,224.0.240 

34 BRI"R5, 10,202,76.88,162, 141,6,207, 173,21,208, 13,6,207, 141,21,208,169,44 

35 BRTR32.87. 194, 169,40,32,87, 194,32, 186, 194,32,203, 194, 165,21 ,201, 1,240 

36 BRTR9, 2.01, 0.24Ö, 17, 162, 14/76, 19, 194, 173, 16,208, 13,6,207, 141, 16,288, 76 
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droeMJ 



3? BfiTR165, 162, 173, 16,208,73.. £53, 13, 6,207, 7*, 255, 141, 1*1^1 rJ ; ^.rÄf 

38 DRTR18,168, 165, 20,153,8,208, 169,44,32.8?, 194,32,36, 1?«' *£?' j^;£*' J "j 

39 BRTR16&, 138, 153, 1,208, 169,41 ,32,07, 194, 169,44/di<!j8Pj l^^ü^b^l^IJcl^ 

40 BRTR172. 239,207, 153,39,288,32, 121, 8, 201, 44, 24(d, 12, 32, 218, Ifo*,^, 1W2, lb* 

41 BRTR32, 196, 163, 76.. 173, 193, 32, 115,0, 201 , 80, 240, 13, 281 , 95, 240, bd, 201 .174 

42 MTR248,186,162, 11,76,19,194,32, 168,163,32, 115,8, 20L-44, ^40^,^,14^ 

43 BRTR163, 32, 115, 8, 281, 95, 208, 19, 32, 228, 163. 32.115, 0,201 ,174, 24^*, 7b, 15* 

44 BRTR1S3,32,230, 163,76, 178, 193,281, 174,288, 288,32, 2*0, 1^'^J ^i^S 1 

45 IifiTR95.2^^n4,32,22Ö,163>?6,l?0,i93,32,220,16:j,32,n5,8,^8i,ir:4,288 

46 BRTR23,32, 230, 163, 32, 115, 8,281, 44, 288. ß?.> 32, 115, 8,201/88.200,1^32,168 

47 DßTR163,76, 170, 193,32, 196, 163,32, 121,8,76,78, 163, ^^^ ; J^^J 1 ^ 8 ,.^ 

48 BRTR201, 95, 288, 26,32, 220, 163, 32, 115, 0,201; 44, 20*, 25, ^fl} 1 ^ 0,201^80,^40 

49 BRTR3, 76, 246, 162,32, 168, 163, 76, 178, 193,32, 182^6^,^121,0, t6> 11*, lb* 

50 BRTR32, 210, 163,76, 173, 193,32, 182, 163,32, 196, 163,76, 1^, 19d,32, 19b, 16^ 

51 BRTR76, 173, 193,32, 132, 163,76, 173, 1^3, ir'3,27,2yö,?J,255, 1 £'*' jgf* . *>*£> 

52 BRTR141, 27, 208, 96, 173,29,208,73,255, ; J3 ; b,207wJ^S5> "^fS^i? ?41 

53 DftTR23,208,73,255, 13,6,207,73,255, 141, 2*, 208, M»< }£^!^Sg°' J*'*'!g?' }JJ 

54 BRTR27,208,96, 173,29,208, 13, 6, 207, 141, 29, 2*8, yb, 1 ,;*,2o, ffg, iJ,b,^, 141 

55 BRTR23, 208, 96, 32, 115, 0,32, 36, 194, 138,24, i?^^ö, 144,23,1^14^7^9, 1^4 

56 BRTR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 ,2*4 , 2*4 , ,2*4 , 234 , **4 ,234 

57 BRTR234, 169, 1,224,8,248,5, 10,202,76,21, ib4, 141 ,*, 2B7 ^ i^A^-'^f o^i 5o^ 

58 BRTR234, 234, 234, 234, 234, 234, 234, 234, 234, 2*4, 2*4, 2*4, 2*4, **4, **4, 234, 2^4 

59 BRTR234, 13,6,287,73,255, 141,21,288,76, 173, 193, 169, 147^32,228, ly4,7b,U0 

60 BRTR 193,1 69 ,19, 32 , 22Ü , i 94 , 76 , 1 78 , 1 93 , 234 , 234 , 234 , 234 , 2*4 , 2*4 , 234 , 234 

61 DI-ITR234, 234, 234/234, 234, 234, 234, 234, 234, 234, 169, 18, *2, 228 , 1*4,7*, UV 

£2 BRTR193, 169, 146,32,228, 194,76, 178, 1*3,32, 15,8, 32,36, 194, *8, *4, 18-j, ab 

63 BRTRJ.44,5, 162, 14,76, 19, 194, 138, 168, 16b, 214, 32.« 237, iy4, r-fo, 1^*. ***>**> J 1 '-' 

64 BRTW.32,36, 194, 138,24, 185,231 , 144, 5, 162, 14,76, 19, 194, 1*0, lbd, 164,2li 

65 BRTR32,237, 194,76, 173, 193, 165,45,56,233,2, 178, 165, 46,233,8, lb8, 169, 1 
6f. DATA 133, 186, 169,8,32,46, 195, 138,24, 185,2, 133,45, 152, 105, W, 1*3,40,32,29 

67 BRTR195, 7^^ 178, 193, 8. 8, 8,8,8, 8, 8, 8, 8, 8,8, 0, 8, 8.- 8, 8,8,8.8.8,8, 0, 8, S, Ü 

68 BflTflßl" 0. 8, 0,0,0, 8,0, 8,0,0,0,0, 8. 8. Ö. 8, 0.0,0,8,0, 8, 125, 283, 228, 55, 1 
g«j BATR12ft . 5 , 55, 25, 5, 128, 139 , 44, 43, 178, 255, 9, 157, 230, 213, 135, 2b5 

78 BRTR 1 62 , 98 , 284 , 2 1 7 , 55 , 27 , 49 , 1 5 , 35 , 85 , 75,18,19 , 88 , 285 , 1 74 , 98 

7 1 BRTR228 , 78 , 1 69 , 8 , 288 , 1 , 80 , 1 79 , 62 , 8 , 255 , 5 , 69 , 72 , 148,1 94 , 

72 BATR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 2*4 , 2*4 , 2*4 , 28 1 , 85 , 20o , * 

73 HRTR76,5, 161,281,68,208,3,76,26, 161, 162, 11,76, 19, 194^234,234,2*4,2*4 

74 HRTR234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 16y , 192,1** 
?S BRTR258, 169,7, 133,251, 169, 192, 133,252, 169,219, 133, 253, 234,234, 2*4, 2*4 

76 BRTR32 , , 1 92 , 88 , 76 , 1 34 .. 227 , 234 , 234 , 234 , 234 , 234 , 2*4 , 2*4 , 2*4 , 2*4 , 2*4 , 2*4^ 

77 BRTR234, 234, 234, 234, 234, 234,234, 234, 165, 122, 141,4,287, 165, 123, 141.-5,287 

78 BRT A220 , 78 , 1 69 , Ö , 288 , 1 .• 88 , 1 79 , 62 , , 255 , 5 , 69 , 72 , 1 48 , 1 94 , 

79 BRTR-1 

9j BRTA169, 188, 141, 8, 3, 169, 192, 141,9,3,234,234,234,234,234,234,234,234,234 

w BRTR234 • 234 ■ 234 - 2:-;4, 234, 234, 234, 234, 234, 234, 169, 195, 162, 194, IbW, 28-j, 141 

93 BRTR4, 128. 142,5, 12-8, i46.6, 128, 162,56, 168,48, 142,7, 128, 148, 8, 120,2*4,234 

94 BRTR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 2*4 , 234 , 2*4 , 2*4 

95 BRTR162. 113, 160, 192, 142,8, 128, 140, 1, 128,234,234,234,234,234,2*4,2*4,2*4 

96 BRTR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 162 , 94 , 1 60 , 254 , 1 «2 , 2 

97 BATR128, 140, 3, 128, 96, 142, 22.« 208, 32, 163, 253, 32, 80, 253, 234, 234^2*4^2*4 
9« BRTR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 2*4 , 2*4 1 *2 , 21 
99 BRTR2S3,32,91,255, 32,83,228,32, 191,227,32,55,195,32,^8,166,162,251,154 

1 08 BATR32 , 8 , 1 92 , 88 , 76 , 1 34 , 227 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 2*4 , ^4,2*4 

101 BRTR234, 234, 234, 234, 234, 234, 234, 234, 165, 122, 141 ,4, &t , ibo, 1**, 14 x, 5, 28,- 

102 BRTR162, 0, 234, 234, 234, 234, 234, 234, 2*4, 234, 2*4, 2*4, 2*4, 2*4, 2*4, **4, 234 

103 DRTR234,234,234,234, 173,4,287, 133, ^A^^W'l'ttl^ 

104 BRTR287, 189, 179, 193. 240, 36, 32, 1 15, K, 221 , US> 19*. 248, 24, 2*4, 2*4 ; .2*4, «4 
1 85 BRTR234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 2*4 , 2*4 , 2*4 , 2*4 , 2*4 , 2o4 , 1 bs» , El 
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^ Computronic 



:?mmodore64 



106 

107 
108 
109 
110 
111 
112 
113 
114 
115 
IIb 

117 
US 

119 
120 
121 
122 
123 
124 
125 
126 
1 2 7 
128 
129 
138 
131 
132 
133 
134 

136 
137 

138 
139 
140 
141 
142 
143 
144 
145 
146 
156 
176 
i&0 
130 

2ÖÖ 

218 
235 
248 
698 
700 
710 
740 
?6B 
780 

888 

82Ö 



BATA141 ,255,287,232,76,234, 192,232, 189, 179, 193,208,38,232, 189, 179, 193 
BATA288, 33, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234 
BATA234, 234, 234, 234, 173, 4, 207, 133, 122, 173, 5, 207, 133, 123, 76, 228, 167, 232 
BATA232, 173, 2SS, 207, 240, 149, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234, 234 
B AT A234 , 234 , 234 , 234 , 234 > 234 , 234 , 234 , 202 , 282 , 1 89 , 1 79 , 1 33 , 1 4 1 , 8 , 287 , 232 
BRTA I 89 , 1 79 , 1 93 ,141,1 , 207 , 32,1 29 , 1 93 , 1 88 , 8 , 287 , 234 , 234 , 234 , 234 , 234 , 234 
HAT A234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 8 , 72 , 1 65 , 1 , 4 1 
BATR254 , 1 33 ,1,1 04 , 40 , 96 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 
B AT A234 , 234 , 234 , 234 , 234 , 234 , 234 , S , 72 , 1 65 ,1,9.-1,1 33 , 1 , 1 84 .. 40 , 96 , 32 , 1 1 5 
BATR8,32, 159, 193,76, 174, 167,03,67,82,79, 76,76,8, 1, 160. 139,8, 129, 161, 143 
DATA0, 151 , 161 , 79, 76, 68, 8, 280, 161 , 83, 88, 82, 73, 84 , 69, 8, 66, 162, 67, ?£ f 83 
BATA80, 82, 8, 248, 163, 67, 76 j 83, 0, 67, 164, 72, 79, 77, 69, 8, 75, 164, 73, 78, 86, 69 
BATA82, 83, 69, 8, 181 , 164, 78, 176, 77, 65, 76, 8, 189, 164, 72, 84, 65, 66, 8, 1 17, 164 
BRTA86, 84, 65, 66, 8,1 44, 164, 77, 69, 82, 71, 69, 8, 171, 164,8,8,8,32, 159, 193,32 
BRTA58 , 1 64 , 76 , i 34 , 227 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 , 1 59 , 1 93 ,32,1 58 
BRTA 1 83 , 76 , i 29 , 1 93 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 ,159,1 93 , 32 , 234 
BAT A232 , 76 , 1 70 , 1 93 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 , i 59 , 1 93 , 32 , 1 58 
BRTA 1 73 , 76 , 1 29 , 1 93 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 , 1 59 , 1 93 , 32 , 255 
BATR 1 74 , 76 ,129,1 93 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 , 1 59 , 1 93 , 32 , 1 68 
DATA 168,76, 129, 193,234,234,234,234,234,234,234,234,32, 159, 193,32,9, 169 
BRTR76, 129, 193,234,234,234,234,234,234,234,234,32, 159, 193,32,251, 168 
HATR76, 129, 193,234,234,234,234,234,234,234,234,32, 159, 193,76, 188, 192 
BATA234, 234, 234, 234, 234, 234, 234, 234, 32, 159, 193, 32, S6 f 166, 76, 129, 193, 234 
BRTA234,234,234,234,234,234,234,32, 159, 193,32, 138, 173,76, 129, 193,234 
BAT A234 , 234 , 234 , 234 , 234 , 234 , 234 , 32 , 1 59 , 1 93 , 32 , 247 , 1 83 , 76 , 1 23 , 1 93 , 234 
BATR234, 234, 234, 234, 234, 234, 234, 32, 159, 133, 32, 2 18, 255, 76, 129, 193, 234 
BATR234,234,234,234,234,234,234,32, 159, 193,32, 18,229,76, 129, 193,234,234 
BATR234,234,234,234,234,234,32, 159, 193,32, 19, 166,76, 129,193,234,234,234 
BRTA234, 234, 234, 234, 234, 32, 153, 193, 76, 169, 164, 234, 234, 234, 234, 234, 234 
BATA234, 234, 32, 159, 193, 32, 51 , 165, 76, 129, 193, 234, 234, 234, 234, 234, 234, 234 
BRTR234, 32, 159, 133, 32, 158, 244, 76, 129, 193, 169, 63, i68, 195, 32, 38, 171 , 96 
BATA147, 13, 32,. 32, 32, 32, 42> 42, 42, 42, 32, 32, 32, 32, 32, 84, 72, 63, 32, 32, 32, 32 
BRTA66, 65, 83, 73, 67, 32, 65, 83, 32, 32, 32, 42, 42, 42, 42, 32, 32, 32, 32, 13, 13, 32 
BRTA32, 32, 32, 32, 32, 48, 67, 41 , 32, 49, 57, 56, 52, 32, 66, 89, 32, 83, 84, 69, 88, 72 
BATR65, 78, 32, 66> 65, 82, 84, 73, 83, 67, 72, 13, 13, 32, 54, 52, 75, 32, 82, 65, 77, 32 
BRTA83, 89, 83, 84, 69, 77, 32, 51 , 56, 57, 49, 49, 32, 66, 65, 83, 73, 6? , 32, 66, 83, 84 

BRTA69, 83, 32, 78, 82, 69, 63, 13, 13, 8, 255, 232, 48, 16, 243, 96, 162, 65, 32, 162, 195 
BATA162,41,32, 175, 195,32, 146, 193,76, 127,192,162,45,32,162,195,48,246 
BATR32, 14, i93, 32, 29, 193, 144,9, 133,33,32,36, 193, 133,92, 176,34, 169,63,32 
BR.TA210, 255, 288,222, 169,32, 164,211, 136, 145,289,32, 109,193,144,237,32 
BRTA212, 195, 32, 14, 193, 281 , 45, 240 
DRTA-2 

: rem ****************************** 
•REN *** #** 

=REM #** EXTENBED BASIC AS *** 

: REM *.** 02? 1984 BV *** 

:REM ##* STEPHAN BARTOSCH *** 

: REN *** *** 

: rem **************************$*** 



:REM#**#* EINLESEN BES ERSTEN ***** 

: REM***** TE I LS ***** 

]>10*lfoT3 

REAB A 

1F A"~i THEN 1888 

POKE 1 , A 

1 = 1 + 1 



Maxell 's the disk that many drive manu- 
facturers trust to put new equipment 
through its paces. It's that bug-free. 
So you can drive a bargain. But in 
accelerated tests, Maxell floppys lead 
the industry in error-free perforraan.ee 
and durability. Proving that if you can't 
stand the heat you don't stand a chance. 

maxelL 

ITS WORTHIT 



maxfiär' 
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Spiders 



Commodore64 



Top 




The Basic - letzter Teil 

840 GOTO 760 

1000 REM**** EINLESEN DES ZWEITEN * 

1010 REM**** TEILS # 

1840 1=12*1613 

1060 REfill hl 

10ÖÖ IF fi*-2 THEN 2088 

11ÖÖ PÜKE I' .. Fl 

112Ö 1=1+1 

1 140 GOTO 1060 

2080 :REM**# STRRT DER 

2010 'REM*** DURCH SVS 

2820 :REM*** ANSCHLIESSENDES 

2030 : REM*** (D.H. SVS 64738 !) 

207B SVS 43 1 52 : REM I N I T l PL I S I ERÜN 

2090 SVS 64738= REM RESET 



*•** 



ERWEITERUNO 

49152 UND 

RESET 



*** 



**$ 
*** 



Programm 



Ein Topprogramm, ausgewählt von der Redaktion 
zum besten Programm in unserer Ausgabe. Eine 
Supergraphik zeichnet dieses Spiel im besonderen 



aus. 



Ziel des Spiels ist es, zwei Spin- 
nen, die auf ihren Netzen herum- 
krabbeln, zu beseitigen. 

Vernichten kann man beide Spinnen 
allerdings nur mit einem Insektengift. 
Eine Spraydose dieses Giftes liegt 
noch im Keller, der zu allem Übel aber 
verschlossen ist. Also, zunächst ein- 
mal müssen alle Schlüssel eingesam- 
melt werden. Zehn Stück sind es im 
Ganzen. Sind alle Schlüssel gefunden, 
muß der rote Knopf auf der obersten 
Leiter gedrückt werden. Erschwert 
wird der Weg zur Leiter durch kleine 
herumkrabbelnde Spinnen, die aber 
mit viel Geschick und guter Reaktion 
übersprungen werden können. "Wird 
die Figur von einer der kleinen Spin- 
nen berührt, so fällt sie vom Gerüst 
und das Spiel beginnt mit einer neuen 
Figur. Sind Sie zur Spraydose gelangt, 
muß die Dose berührt werden und das 
Spray entfaltet seine Wirkung. Für Sie 
bedeutet dies: der nächste Level. 

Gespielt wird mit dem Joystick an Port 
2. Und wir wünschen viel Vergnügen. 
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P0KE56 .- 56 ; GOTO 1 Ö 

******************* 



* S F I D E R S * 

# CÜPVRIÜHT "'84 * 

5 * BV MR ~ SOFT * 

6 * RONALD MflVER * 
? * * 

8 * Fi U S V R I fi * 

9 ******************* 

1 ÜFl T'Fi 1 69 1 6 .. 1 33 .< 252 > 1 63 * 56 > 1 33 .. 253 
26 DflTfi 1 69 .■ 8 ; 1 33 > 254 , 1 69 .. 208 , 1 33 ^255 
38 JJfi "i" Fl 1 6 2 .- 1 1 6Ö .. / 1 77 .' 2 54 .« 1 4 5 -'252 
46 DR T H 2 88 .. 2 8 .. 2 4 9 .< 23 2 , 224 .. 8 * 2 4.Ö .. 7 
50 BRTR236.. 2S3.. 23Ö.« 255.. ? 6.. 26 . 128.- 9b 

68 FÜR 1 ~;827G8TO3280? : KEHDfl : POKE I .- Fl : NEK I" 

70 POKE 56334 , : POKE 1 .- 5 1 : SVS32768 

80 POKE 1 > 55 : PÜKE56334 * l ■ PÜKE53272 .- 30 

90 V«53248 : R 1 «2040 

1 00 POKE V+33 > 8 : POKEV+32 .- 8 

110 PRiNT ii :HlJU3T Fl MOMENT 

1 20 PÜKEV+27 > 2 : PÜKEV+28 > 1 

130 PÜKEV+38, 8 = POKEV+39;. 5' PQKEV+49 .-2 

140 POKER I -I- 1 * 251 : OÜTÜ250Ö0 

160 J=PEEK< 56320 > : SVS37225 : EÜ~BÜ»1 

161 I F P EE K < X -4Ö > »60 T HEHGOS UE 600 

1 62 I FPEEK ( X+4Ö ) <3ÖTHEN300 



POKE V+ 37 .' 6 



Computronic 



£ffi?modweß4 



163 X1~PEEK<V>:X2~PEEK(V+1) 

164 1 FPEEK ( X > C320RPEEK C X-48 > -C32THEN300 
163 IFRNIK 1 »1-RU/100THENPQKE1959, 28 
170 1F c: JflHÜ 1 6 > B0THEH240 

172 IF( JflNDl )s0THEN220 
1?4 lF<JflHD2)s0THEH230 
1 7 6 I F < JRNB4 > =ÖTH EN2 1 ö 

178 IF<JflHÜS)s0THEN200 

1 7 9 I FX k 1 963 THEN4 00 

1 80 FÜR I» i Tu 80 = HEXT : GOTü 1 68 

2Ö0 POKER 1 .. 248 : 1 FPEEK ( X+ 1 > >39T HEN 1 SO 

282 PÜKE V .■ X i +4 - FÜR I « 1 T 060 : N EXT 

204 POKER I .. 247 : POKEV .■ X 1 +8 : X«X+ 1 : GOTO 1 60 

210 POKER 1 , 246 - 1 FPEEK (X-i »39THEN180 

2 1 2 POKEV , X 1 -4 : FOR I » 1 T068 : HEXT 

214 POKER I t 245 : PÜKE V , XI -8 : X«X- 1 : GOTÜ 1 68 

220 I FPEEK < X > 039 THEN 1 80 

22 1 POKER 1 , 249 = X2=X£-4 = PÜKE V+ 1 , X2 

222 FÜR X »1 TÜ50 ; NEXT = POKER 1 , 25Ö : X2=X2«4 : PÜKEV+1 , X2 : X«X-48 : GOTO 1 68 

230 1 FPEEK i X+48 ') 039THEN 1 80 

231 POK E R 1,24 9 : X 2™X 2 + 4 : P KE V + 1 , X 2 

232 FÜR I =*1 TO50 : HEXT : POKER l .- 250 : X2»X2+4 : POKEV+ 1 , X2 : X-X+48 : GOTO 168 
24Ö I FPEEK (RD >248THEN 1 80 

24 1 1 FPEEK (RD >246THEN£5 1 

242 1 FPEEK ( X-42 ? > 1 59THEN 1 80 

243 X2*X2-8 : X 1 =X 1 -2 : X=X-4Ö : POKEV , X I : POKEV+ i t X2 : POKER l , 245 

244 X2*X2-4 = X 1 «X 1 -6 : X=X- 1 : POKEV .- X 1 - POKEV+ 1 , X2 ■ I FPEEK < X+48 ) <30THEHGOSUB280 

245 I FPEEK < X ) =38THENG03UB298 

246 X2*X2+4 : Xl-Xl-6 : X*X-i : POKEV, XI : PÜKEV+1 , X2 : POKERI , 246 

247 I FPEEK i X+4Ö ) > 1 59THENX 1 ~X 1 -2 : POKEV .. X i : GOTÜ 1 60 

248 X 2-X2+3 : X 1 =X 1 »2 : X-X+48 : POKEV , X 1 = PÜKE V+ 1 , X2 = I FPEEK < X+48 ) > 1 59THEN 1 68 

249 X2-X2+8 : PÜKEV+1 ■ X2 : X=X+40 = I FPEEK < X+48 >>159THEN 168 
25Ö GOT 03 8 8 

25 1 I FPEEK k X-38 ) > 1 59THEN 1 80 

252 X 2»X2~8 = X 1 »X 1 +2 = X*X-40 = POKEV , X 1 : POKE V+ 1 , X2 = PÖKER 1 , 248 

253 X2*X2»4:Xi*Xi+6:XaX+i -PÜKEV..X1 :P0KEV+1,X2= I FPEEK <X+48X38THENGÜ8UB288 

254 I FPEEK ( X > -33THEHG0SUB298 

255 X2-X2+4 : Xl»Xl+6 : X»X+1 : POKEV, XI : POKEV+i , X2 : POKERI , 247 

256 1 F PEEK i X+48 ) > i 59 THENX 1 »X 1 +2 : PÜKE V , X 1 = GOTO 1 66 

257 X2«X2+8 : X 1 --X 1 +2 = X-X+48 = POKEV , X 1 = POKE V+ 1 , X2 

258 I F PEEK < X + 40 > > 3. 59 T HE N 1 68 

259 X2-X2+8 : POKEV+i , X2 : X«X+48 = IFPEEK<X+40»159THEN160 
26Ö GOT 0308 

280 Z«PEEK < X+48 > : POKEX+40 .. 2? 

285 FÜRI«1TO10#RU - 8V336864 : SOSC+1 : POKES+4, 32 : POKES+1 > IRNB255 : PÜKES+4, 33 : NEXT 

286 : 1 F2-29THENP0KEX+48 , 29 • RETURN 

287 POKEX+40 . 32 : RETURN 

290 BS=BS+i ■•FORI*iTO10*BS*RU-SVS36864 : SOSC+l = PÜKES+4.. 32 = PÜKES+1; IAND255 

297 P0KES+4, 33 : NEXT :P0KEX, 32: RETURN 

380 X3*PEEK ( R I) : POKES+4 , 33 

319 F0RI=X2TQ25S = POKEV+l , I : POKES+1 , 255-1 : tl^l-M = POKERI /X3+M = NEXT 

328 GH=ßN»i = IFöN=0THEH500 

33Ö POKE 1 70 1 , 47+GN : X= 1 947 : FÜR I * 1 TOS : POKEX+ 1 .- 32 : NEXT 

340 POKEV, 37 : PÜKEV+1 , 222 : POKERI * 248 : GOTÜ 160 

48Ö GOSUB308 = POKES+ 1.0: POKES+4 , 33 : FOR I «BOTO0STEP- 1 : BO=ßn- j : SC«SH'+ 1 

485 SV336864 : SVS36886 : NEXT = 1*3 = GOSUB780 

4 1 Ö RU=RU+ 1 : BOaS00#RU : X« 1 947 : BS-'Ü : GÜSUB5688 : 1 FRU*4THEN0N=QH+ 1 

420 PRiui'^Mmimmxmmrtjm^s'y-GET readv für rüund i, ru:t=4:gosub78i;:i 

4 38 OOSU B 5580 : G 3 U BS60 : Gl J 8 U B48 88 
-..440 POKE 1 78 i , 47+GN : POKE 1 78 1 .■ 48+RÜ 
Ig, GOT 03 48 
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Comffl? 



däeUD 



560 FORI«1493TÜ20i3STEP40: POKEI, 39 :P0KEI+S,9-NEXT ^ 

519 PÜKEV, 245 : F0RI-254T01 18STEP-4 : POKEV+1 * I ; M-l-M * KiKERI , 249+M 

52Ö FÜR 11=1 TO80 : HEXT II j 1 : PÜKER I , 245 

538 PRn^T ,i ^MeMiiiIii'Mi!Mi ,i THBa?) 1, «ORI''lE OVER" rrirnf « itjM .„ , M 

540 F0RIsl4T01STEP--5:P0KE1439+S+I, 1 '- PÜKEV, PEEKtV; -4 : POKER 1^45+M-M-l-M 

550 FÜR II « 1 T08Ö : NBXT 11,1 

555 PRIHT" aWKWMWflM ,, SFC< 15V rtäPQRSMWMirUVW" 

560 PRIHT ,, MSW)a' , TflEa3V , iffl ;], RESiS FIREI 

565 GOSUB46000 : GOTO5Ö00 

600 I FBSö 1 0THENGOSUB 1 000 : POKE 1 836 , 6 1 

610 RETURM 

700 FORI»1TOT:FORJ=1TO?00:NEXTJ^ I 

710 RETURN - -,. r - r - 

8Ö0 POKES+4 .. 1 29 : POKES+ 1 - 250 : T ~2 - GUSUB «• 00 

fi05 POKES+4, 0:ROKES+1, 90 : GOSUB700 ' . ^-^ 

8 1 FOR I » 1 0S9TO 1 1 89STEP40 : 1 FPEEK <. I > =29THENS 1 * I +40 = OuTUöaw 

820 HEXT 

S-125 '"' 1 ,s 1 06'*il 

83Ö FÜR I - 1 288T0 1 448STEP4Q = I FPEEK < l > «29THENS2- 1 +40 = G0T0858 

840 HEXT 

850 83=8 1 = GOSUB880 ■ 83=82 : GÜSUB880 

R8B POKES3-40, 32 : FORI-S3TQ2023STEP40 : J=PEEK< I > : PGKEI , 29 = POKEI+S, 5 : POKES+4, 33 

890 FORK-1TO90 • NEXT : POKEI , J = POKES+4, 32 = NEXT ; RETURN 

1000 F0RI«1888T01892 : POKEI , 32 : POKEI+40, 3ld : PUKEI+80, ^ • EäT 

1010 FOR 1-181 0TO 1 970ST EP40 : POKE 1 , 39 - POKE 1+8,9 = NE aT ' RETURN 

50Ö0-GOSUB5500:IFSC$>=HI*THENHI**SC* _,„_ , - . Ilirrrw CTDC Tn .-tüpt i« 

5030 PQKEV+32,2:PGKEV+33,2:PRINT'':i^^^ FIRE Tu bTHRT ! 

5035 PÜKEV , : T* 1 : GOSUB780 : GOSUB46008 

5040 X>1947:BS-0:RU=1:BO=500:GN»3-SC"0 _ __ OT „ ilo 

5045 QOSUB5600 • GOSUBS500 ; POKEV+ 1 , tt£ ■ POKEV , 3 t '• POKER I , *48 

5050 POKEV+2 ,210: POKE V+3 , 222 : PÜKEV+ 17,1 

5100 GOSUB40000: GOTO 160 . _. _ .,, rrTljr ... 

5500 SC*= ,l ^ ,, +RIQHT*C ,, 000000 ,, +MIB*C8TR*^bU)^^b ; ;- RETURN 

5600 BÜ$*= ' ' Ä." +R I GHT* C " 0000 ,l +M I D* C STR* C BO ) , 2 > , 4 J = RETURN 

20000 REM**************** 

20010 REM* INSTRUCTIONS * 

20620 REM**************** ,„ „,._, „,,-„ 

200*0 POKEV+2 1 , : PRINT"T = P0KE53281 , 12 : PQKE53280, l-> : OOöUW1000 

20040 PR I NT "H"TflB<l 3 >" «N8TRUCT I ONSM" =G0SUB2 1000 : POKER 1**45 ^„^.^^ 

200B* PRINT"«THI8 IS VOUR GNÜMEM« = POKE V+21 , 1 = POKEV, 240 = POKEV+1 , 99 :GOSUB2l00U 

20060 PRINT-ÄHJUMP OVER BRD SPIDERS SE 810 PT * ROUND;; 

20070 PR INT "»»JUMP OVER IST KEV Ä& 310 PT * RUUND" 

PflßRÖ PP INT "'«»JUMP OVER 10TH KEV 30& 8103 PT * ROUND" 

20«SS RR PMHE DIRTV SPIDER 10 IÜCBO NOT TOUCHE" :G0SUB2 1000 ^ _ ^ 

20100 PRINT'WIND SPRAY Tu KILL SPIDERS«" =PÜKEV+21 ,3 = PGKEV+3,2i0 = PÜKEV+^24W 

2fl 1 1 fl f-infilJB2 i 000 : G0SUB46 080 : GOTO5000 

2100Ö FMDkES+4,32:POKES+i,i5:POKES+5,0;POKE8+6,24Ö ,„,. ur „ TTT t . DCT md*j 

2 1 1 FÜR I B 1 T 040 : PR I NT "■-";: POKES+4 , 33 : FÜR 11*1 TOS = PuKEb+4 , *2 ■ HEXT II , I • RETURN 

25 00 REM* * # **# **** ****** 

25010 REM* MUS IC SET * 

25820 REM * * *** # ** #* #### * * 

25Ö30 S-54272 : FOR I ~ 01 024 : PÜKES+ I , ; NEXT 

25040 POKES+24,79:POKES+5,i0:POKE8+6,10 _ _ 

25850 FOR I B0TO3 1 : REfiDR : FOR J=0TO7 : SO* - 5-SO : P0KE2üb /2+ 1 +'S4#3 , H* '-. 1 +oU } 

25100 DBTP.20, 25, 30, 0,10, 0,10.« 0,25, 30, 35, 0,10, 0,10,0,^^5^-' ^5, ^1,^,J0,^,^W 

25 1 05 DR T R25 ,30,0,15,8,15,0 

25908 GOT 0300 

3060 REM * * #** ** * ***** *#* 

30010 REM*NEW CHflRRCTERS* 

r _ _^ ~^—~— Computronic 

ob _ — 



3ÖÖS0 
30030 
36Ö40 
3ÖÖ5Ö 
30060 
32027 
32028 
32823 
32030 
32Ö3 1 
32038 
32639 
32045 
32048 
32060 
320b i 

32 1Ö3 
3212b 
3'd X k'. V 
32123 
32129 
32130 
32131 
32132 
I."'cii33 
32134 
32135 
32136 
3213? 

Oc£.l-JO 

32139 
32146 
321 4 i 
32142 
32143 
32144 
321 4 b 
32146 
3214? 
32148 
32149 
32150 
32151 
32154 
32155 
32156 
3215? 
32153 
32159 
32160 
32161 
32163 
32164 
32165 
32166 
32167 
32206 
3508Ö 
3501Ö 
35Ö20 



RE M *** * *** ***** * #** 

REBUB 

H-PEEK< 63 > • IFi"|:~200THEN3500Ö 

FÜR I =81" ü? : PÜKE 1 4336+ 1 +fi#8 , B 

REfiBB : Q«Q+B : HEXT = GÜTÜ3Ö040 

BfiTfiÖ .. , , B ..8.195 .. 90,1 65 

BfiTflÖ .. > , 1 95 .. 60 .. 90 .. 1 65 > 1 29 

HRTR129.. 102.24.. 195.60.98. 165. 129 

IlftTfilfo. ö. 16.-8. 16. 8, 16.. 3 

Dfl'T'ftfoö . . . f . 60 . ö . 

DfiTfiöß . 66 . 66 .« 60 .> 8 .« 8 . 56 .« 24 

BfiT'HlSS. 195.255. 195. 195. 195,255. 195 

!DhTh0 . 60 . 60 . 126 . 60 . 24 .8.0 

IiHTfibß . 1 02 . 1 Ü2 . 1 02 . 1 02 . 1 02 . 60 . 8 

DRTR0. 126. 102. 102. 102. 126.0,0 

BfiTfiÖ . 1 26 . i 26 . 1 26 * 1 26 . i 26 !< .. 8 

BRTR24 . 24 . 56 . 248 . 240 .- 56 . 24 . 24 

DfiTflö . 8.0. 24 .■ 24 .24.24.24 

JJRTR24 . 24 . 24 . 24 . 24 . . . 

IiRTR60 . 6b . 1 53 . i 6 1 .. 1 6 1 . 1 53 . €>€ . 60 

BRTR240 . 248 . 252 . 254 . 255 . 255 .» 255 . 249 

BRT'R? . i 5 . 3 1 . 63 . 1 2? . 255 . 255 . 287 

DATA 159, 155, 159, 159, 158, 158, 158, 159 

BRTR252 . 254 . 255 . 255 . 3 1 , 1 5 . 3 1 . 255 

BRTR246 . 240 . 248 . 248 . 248 . 252 , 252 . 254 

BRTR135.?,?, 15, 15.31,31,63 

BRTR159. 159. 159. 159. 153. 158. 159. 159 

BRTR255 . 254 . 252 . 38 . 1 5 . i 5 . 3 1 , 3 1 

BRT'R 1 92 , 1 1 2 . 40 , 38 . 1 ? . 8 ,9,5 

BR TR 1 6 . 32 . 32 . 64 . 64 . 1 6 1 . 25 . 6 

BRTR25 . 33 . 65 , 1 30 .138.4.4.4 

BRTH3Ö . 225 . 8 . 8 . 8 . 1 . 6 . 24 

DflTfiS .8.1 44 . 1 60 . 64 , 224, . 1 7 . 9 

BRT'R i 36 . 1 84 . 1 6 . 32 . 64 . 1 28 . 8 . ö 

BRTR224 ,0.0,1,6, 24 .96.1 28 

BRT'R 1 8 , 1 2 . 48 .. 1 92 . . 8 . 8 . Ö 

BR "t" R0 . . 3 . 1 4 . 2 9 . 29 . 6 2 . 63 

BRTR15.255.255.59.219.251.128. 187 

BRTR255. 255. 255. 182. 183. 183. 55. 183 

BRTfi0.248.252. 14. 191. 191. 191, 191 

BRTR6 1 , 30 , 1 5 , ? , , Ö .< .■ 

BRT'R i 8? , 1 23 . 255 . 255 .15.8.8.1 

BRT'R 1 83 .183. 255 . 255 . 252 . 224 .. 1 92 .- 1 28 

BRTR 1 98 . 1 88 , 248 . 224 .8,0.8,8 

BRTR255 . . 255 .8.255.0. 255 . 8 

BRTR252 . 8'. 252 . 8 . 252 . 8 . 252 . 

BRTR 128,0, 224 , , 248 . 8 . 254 , 8 

HRTR254 . . 248 . 8 . 224 . 8 . 1 28 . 8 

BRTR 1 2? . 8 . 3 1.8. ? .8.1.8 

DRTR1. 0.7. 6.31,0. 127.0 

BR T"R255 , 1 92 . 48 , 1 2 . 3 . 255 .0.8 

BRTR2S5 , 3 . 1 2 . 48 , 1 92 . 255 ,0.8 

BRTR223 . 223 , 223 , 8 , 25 1 . 25 1 . 25 1 . 8 

BRTR3 1.31.31.8.3.3.3.8 

BRTR 1 92 . 1 92 . 1 92 . 8 . 243 . 248 . 248 . 8 

BRTR255, 131 , 148, 176, 192, 193, 177, 141 

BRTR 13 1.3. 13.49. 193.255,8.8 

BRTR! 

REM** ######*# *#*### 

REH* READ SPRITES * 

REM**************** 
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COMPUTERCLUB 64 

Wien - Ein Verein stellt sich vor 

Der COMPUTERCLUB 64 ist ein seit 
Mai 1983 eingetragener Verein zur 
Verwendung und Benutzung des 
Computers. Seit der Gründung richten 
sich die Aktivitäten auf den Commo- 
dore 64 und allen dazu kompatiblen 
Geräten. 

Aufgaben und Aktivitäten 
Der r COMPUTERCLUB 64' besitzt 
eine vereinseigene Buchbibliothek, 
ein Eprom-Programmiergerät mit ei- 
nem UV- Löschgerät, Originalpro- 
gramme mit Anleitungen und sonsti- 
ges notwendiges Zubehör. 
Im monatlich erscheinenden Mittei- 
lungsblatt ,CLUB 64' werden interes- 
sante Artikel veröffentlicht, Neuer- 
scheinungen vorgestellt, Programme 
beschrieben, Tips und Tricks erklärt 
u. v. m. Alle Mitglieder haben die 
Möglichkeit, aktiv an der Gestaltung 
mitzuarbeiten. Darüber hinaus kön- 
nen sie darin kostenlos Privatinserate 
aufgeben. 

Um einen engeren Kontakt zwischen 
unseren Mitgliedern zu erreichen, 
werden regelmäßig Vereinstreffen - 
vorerst nur in Wien - abgehalten. Die- 
se Meetings erfreuen sich großer Be- 
liebtheit und sind überdurchschnitt- 
lich besucht. Dabei werden Probleme 
ausdiskutiert und gelöst, eigene Pro- 
gramm- und Hardware-Entwicklun- 
gen vorgestellt, Sammelbestellungen 
organisiert; dem Einfallsreichtum und 
der Kreativität der Mitglieder sind da- 
bei keine Grenzen gesetzt. 
Besonders interessant sind die einzel- 
nen Sektionen - User Groups genannt. 
Zur Zeit gibt es drei solcher, die sich 
mit PASCAL, COMAL und MASCHI- 
NENSPRACHE befassen. Zweck und 
Ziel dieser Sektionen ist ein reger In- 
i ormations -und E r f ahrungs austaus ch 
sowie die Übermittlung von fundier- 
tem Wissen. 

Um jedoch den gesellschaftlichen Sinn 
nicht zu vernachlässigen, werden 
auch viele Freizeitaktivitäten zum 
Selbstkostenpreis angeboten. Vom 
Sommernachtsfest, einer abenteuerli- 
chen Rätselrallye bis hin zu einem 
Raubrittermahl erstreckt sich das 
breite Angebot. Aus diesen Gründen 
herrscht ein äußerst freundschaftli- 
ches Vereinsleben, bei dem jedoch 
nicht auch die ,Computerei' vergessen 
wird. Bei Wünschen, Anregungen und 
Anmeldungen wenden Sie sich bitte 
an: Mag. Helmut Hackl, 1030 Wien, 
Erdbergstraße 134/4/7, Tel. 02 22 / 73- 
87-722; 1010 Wien. 
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35Ö3Ö FÜR I«6T06 : FOR J-8TÜÖ2 : RERBR 

35840 POfcE 1 3688+64* I + J .. H : NEXT J , 1 

35050 REM**************** 

35960 REM* SPRITE RIGHT * 

35070 REM**************** 

35088 BRTR9 .- 1,8, 9 , 5 .. , , 5 , 64 , , 2 i , 6 4 .. 8 .. 63 .. 64 , 6 , 255 .• 64 , 9 , 63 , , , 1 5 , , , 4 1 , 64 

35Ö90 BRTR3 .• 1 05 .■ 64 , 3 .• 85 .. i 28 , , 1 66 , 64 , @ , 6 3 , 1 92 , .. 42 , 1 23 .. .. 42 , 64 , ö , 25 , i 28 

35 i 00 DflTflß , 26 .« 30 .■ , 1 .■ 80 , , 5 .. 80 , , 5 , 1 6 .. .. 2 1 , 

35 i 1 BRT R8 .- 1 , .. .- 5 , , .. 5 , 64 , .. 2 i , 64 , .. 63 , 64 , .. 255 .. 64 .. 8 , 63 , 8 .. 0/15/ .■ 0,41 , 64 

35 i 20 BRT R3 .. 1 05 .. 64 , 3 , 35 , 1 28 , .• 1 66 , 64 , .. 63 , 1 92 , , 1 06 , 1 28 , , 1 70 , 64 .. , i 62 ,. 1 28 

35 1 30 BRTR0 , 1 62 , 1 28 , , 82,128 , , 8 i , 64 , 1,81 , 64 , .■ 5 t 64 

35 140 REM**************** 

35150 REM* SPRITE LEFT * 

35 1 60 REM**************** 

35 1 70 BRTfiß , 4 , , , 5 , , Ö , 2 1 , Ö , , 21,64, , 3 1 , 1 92 , , 3 1 , 240 , , 1 5 , 1 92 , , 1 5 , 8 , , 22 , 1 28 

35 1 80 IiBTRÖ , 22.-1 56 , , 37 , 92 , , 25,1 60 , , 63 , 1 92 , , 42 ,128 , @ , 26 , 1 28 , 6 , 38 , 64 , 8 , 98 , 6 4 

351 90 Bft "i" fl , 9 , , .■ 8 5 , , , 6 9 , ,0,5 , 6 4 

35200 IiRTRÖ, 4, 0, 0, 5, 8, 0,21, 0, 0,21, 64, 0,31, 192, , 31 , 240, 0, 15, 192, Ö, 15, S...0, 22, 128 

352 1 . HRTR8 , 22 , 1 56 , , 37 , 92 , 8 , 25 , 1 60 , , 63 , 1 92 , , 26 , 1 44 , Ö , 26 , 1 44 , , 42 , 1 68 

3522Ö BRTR 8 .• 40 , 1 60 , , 40 , 1 60 , , 40 , 80 , , 20 , 84 , , 2 1 , 

3523Ö REM**************** 

35240 REM* SPRITE UP/BÜ * 

3525Ö REM**************** 

35268 IiRTRÖ , 1,0, .■ 5,0, Ö , 5 , 64 , , 2 1 , 64 , ,21,64 , , 37 , 1 92 , , 3 1 , 64 ,0,15, , 9 , 42 , 1 28 

35270 BRTRö , 1 96 , 1 44 , ö , 1 06 , 1 44 , 6 , 1 06 , 144,0 , 223 , 1 12 , , 2 1 8 * 1 76 , , 42 , 1 44 , , 42 , 1 60 

3528© BRTRö , 40 , 1 60 , , 40 , 80 , , 40 , 80 , , 20 ,0,0 , 20 , 

35290 BRTR0 , 1 , , , 5 , .• , 5 , 64 , , 2 1 , 64 , 8 , 2 1 , 64 , , 37 , 1 92 , , 3 1 , 64 , , 1 5 , , W , 4'd , 1 28 

3530Ö BRTRÖ , 1 06 , 1 44 , Ö , 1 06 , 1 44 , , 1 06 , 1 44 , , 223 ,112, , 2 18,1 76 , , 42 ,144,0 , 42 ,160 

353 1 BRTRÖ , 40 , 1 60 , , 20 , 1 60 ,0,20,16 , 9 , , 80 , , 8 , 80 

35320 REM**************** 

35330 REM* SPRITE 8PRRV * 

353 40 REM** *********** * * * 

35358 BRTRÖ , ö , , .< , ,8,8,0 , 0,8,8,0,28,0 , , 20 ,8,0, 28 , , 8 , 8 , ö ,8,1 27 , 0,0, 255 , 1 28 

35360 BRTR0..255, 128,6, 193, 128,8, 128, 128,8, 182, 128,0, 148, 128,8, 193, 128,8,213, 128 

35370 . BRTR8 , 22 1 , 1 28 , 8 , 227 , 1 28 , 8 , 255 , 1 28 , 8 , , 9 

360Ö8 REM**************** 

36818 REM*MRSCHINE CODES* 

36828 REM**************** 

36030 F0RI-36864TÜ37243 = RERBR = POKEI , fi : HEXT ■ G0T045888 

36840 BRTR 1 62 , 5 , 1 89 , 96 , 5 , 28 1 , 57 , 248 , 4 , 254 , 96 , 5 , 96 , 1 69 , 48 , 1 57 , 96,5, 292 , 76 , 2 , 1 44 

36050 BRTR 1 62 ,3,1 89 , 40 , 6 , 20 1,48 , 288 , 9 , 224 , , 240 , 4 , 282 , 76 , 24 .• 1 44 , 96 , 1 62 ,3,1 89 , 40 

3fi060 BRTR6 , 20 1 , 48 , 248 , 4 , 222 , 48 , 6 , 96,1 69 , 57 , 1 57 , 49 , 6 , 292 , 76 , 42,1 44 , 234 , 234 , 234 

36078 BRTR234,234,234, 162,8, 160, i, 173, 183,4, 141,255, 143, 185, 183,4, 157, 183,4,232 

36980 BRTR208 , 224 , 6 , 288 , 244 ,162,9,160,1,1 73 ,155 , 7 , 1 4 1 , 1 88 ,4,1 85 , 155, 7 , 1 57 , 1 55 , { 

36Ö98 BRTR232,200, 224, 13,288,244, 162,8, 168, 1, 173,203/4, 141, 167,7, 185,283,4, 157 

36 1 88 BRTR283 , 4 , 232 , 288 , 224 , 1 8 , 288 , 244 , 173, 255 , 1 43 , 1 4 1 , 228 , 4 , 96 , 1 62 , 8 , 1 68,1,173 

36 1 1 8 BHTR253 , 4,14 1 , 255 , 1 43 , 1 35 , 253 , 4 .* 1 57 , 253 , 4 , 232 ,280 , 224 , 5 , 288 , 244 , 1 62 , 8 , 1 60 

36 1 28 BRTR 1 , 1 73 , 202 , 5 ,141,1 , 5 , 1 85 ,282,5,1 57 , 282 , 5 , 232 , 288 , 224 , 5 , 288 , 244 , 1 62 , 8 

36 1 38 BRTR 1 68 ,1,1 73 ,39,7,141, 286 , 5 , 1 85 , 39 ,7,1 57 , 39 , 7 , 232 , 288 , 224 , 5 , 288 , 244 , 1 73 

36 1 48 BRTR255 , 1 43 ,141 , 43 , 7 , 96 , 1 60 , , 232 , 288 ,192, 48 , 288 , 258 , SS , 1 68 , 8 , 282 , 288 A 92 

36 1 58 BRTR48 , 288 , 258 , 96 , 1 65 , 253 , 28 X , , 288 , 39 , 1 73 , 1 68 , 5 , 28 1 , 29 , 288 , 5 , 1 62 , 1 , 1 34 

3f, 1 6fl BRTR253 , 96 , 1 62 , 8 , 1 89 , 8,5, 28 1 , 29 , 298 , 1 2 , 254 , 8 , 5 , 1 69 , 29 , 32 , 2 1 4 , 1 44 , 1 57 , 8 , 5 

36 1 70 DRTR96 , 32 , 2 1 4 , 1 44 , 76 , 252 , 1 44,173 , 8 , 5 , 28 1 , 29 , 208 ,5,1 62 , , 1 34 , 253 , 96 , 1 62 , 1 60 

3S 1 88 BRTR 1 89 , 8 , 5 , 20 1 , 29 , 288 , 1 8 , 254 , 8, 5 , 254 , 8 , 5 , 254 , 8 , 5 , 1 69 , 29 , 32 , 223 ,144,157, 8 

36 1 90 BRTR5 , SS , 32 , 2 i 4 , 1 44 , ?S , 35 , 1 45 , 1 62 , 32 , 1 42 , 4 , 2 1 2 , 1 74 , 288 , i 42 , 1 89 ,,112,141,1 

3G200 BRTR2 1 2 , 238 , 238 , I 42 , 1 62 , 33 ,142,4,212, 96 , 1 62 , 1 68 , 1 89 , 8 , 5 , 1 57 , 5 , 4 , 32 , 223 

36210 BRTR 144, 224, ,288,243,96,32,22, 144,32,68, 144,32, 141, 144,32,232, 144,32,66 

36228 BRTR 1 45 , 32 , 89 , 1 45 , BS 

48008 REM**************** 

48918 REM* GRME-SCREEN * 

48028 REM**************** 
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40330 

40868 
48876 
4Ö0S0 

40Ö90 
401ÖÖ 

40110 

40 120 

40122 

40123 

48124 

4Ö125 

40138 

4614Ö 

40156 

48160 

40176 

401 80 

4019Ö 

4Ö20Ö 

40210 

4022Ö 

49230 

4024Ö 

40250 

48260 

402 PÖ 

4028Ö 

40290 

40300 

4890Ö 

40999 

4580Ö 

43810 

45Ö20 

45036 

45040 

4505S 

4586Ö 

45890 

45100 

45110 

45120 

4513Ö 

45140 

45150 

45160 

45178 

45180 

45198. 

45200 

4521Ö 

45220 

45230 

45235 

45237 

45248 

45250 

46000 

460 10 

46Ö20 



PÜKEV+32.. 9 : PQKEV+21 .. 3 : POKEV+33.. 8 

print" a##i!nnw S"spc< ie> u m&: , i&wmmmy.mMiGH • «£#" ; 
pr i nt " äW#iiKLna a" spc < i 6 > " B©'' ;&m*is*##?Ä3 ~ aca*# ,s ; 

PRINT" fttttflNOB a M SPCC 16? 'irMiWI^»:'^'!'!" as»#" ; 

PRINT" Btttftültill iiliNii.i: ; !äi»i.&iiiHilS'iliifeli,&ii^ x Ks £ aää$##########" ; 

PRINT" SMttfiHI £ ÖES& ! ! ! 5aa###########"; 

PRINT "«MW! Wüa ! ■ ! ! IST; 

I FRLK2THENPR 1 NT " ! ! i! ; • GOT 040 1 25 

IFRLK4THENPRINT" ! !«*•"; =601040125 

PRINT" \ »*+*-"; 

PRINT" SO» i-'lüöi 1 SBa*#KakSCORE:aäat#"J ■ 

PRINT" äHMKttlHr "SPCt 19) "SS $ä$^-Ä SGä£# ! ' ; 

PRINT" a»#XMR»-' ÜMfi& ,, SPCX 16) "ii S5»#K"SC*" «»#" j 

PRINT "a«t#Xii»HI!' n SPCC 13? "SI&llWiMi 'i & iE i$ ###&######'' J 

PRINT"ätt#l3 ! i IM' «3 B"SPC<i3) "St »###########" ; 

PR I NT " ätt #/;iH»6ü*il*-' HOB» ilB MI& ! nHJHM"*-*-äEI ! ! »' ÖC3 ! SffltfltfBhBGNUS : ÄK# " ; 

PR 1 NT " »iv;iii§t§»-' ä^iit^ •' " SPC < 1 ) " BS»-" tä&m®Z*Sr — aßä£# " ; 

print" mmimm&wm-'.$n*m -'mmmmmmmm/ öb9H^##^: j1 bo^" öca*## n .; 

PRINT"SIMK3 ! BT SEH ! ! ' r,, gPCC14>"IH / Ä>it###########"J 
PRINT" «%&»§••' 50" SPC C 14> "& ! 1 ! !»•' ÖET3 ! 3i3## ##########" ; 

pr i nt " mm^tm^ tir spc c 1 2 > !i & •" »»»»■■' Ä»i*#KHhJGfNOME : ff?2 sc»* " ; 

PRINT" SWOV "SPCC9) " '" SO! •"JliiiiMIHr «S$###4414i«### H j 

print" mw.tim'inim*uwM*wm' aia"spc< 1 1 > "mt sG»B#K»kROUND : ni sc»#" .; 
PRINT" i«^»»-' "SPCO) " -' aä3"SPCC9) " *####**##########" .; 
PRINT" atHKl! ! ü'äj ! ! 3! ! «iMME»########5»ft 198433»*" > 
PRINT" ßii##;'i i, SPC( 17) "$##########?*■ Sl$#" ; 

print" ffl$y.ymmf*i&w&m*nbM&&m#ffl*MM#%y.m scaeRBCHsa a*#" ; 

PRINT" ätHtiMi a3&tt########$Mt###KS Ä3DEFGKÜ SS# ,k J 

PR I NT " s2iiB#############################tt########älfi ,! CHR* < 1 43 > " #H" 

P0KEV+17..27 
RETURM 

REt1**#***##*#*#**## 
REH* TITEL * 

R E M * * * * * # * # # # **"##* # 

PÜKEV+32, 4 : P0KEV-K33.. 4 

PRINT'TJh.a" .: : FGRI«1T08 : PRINT"@fiBCH" .: : NEXT 

FÜR I = 1 TOS ■ PR 1 NT " DEFGHB" ; : NEXT 

PR I NT " jülÄBOF'T '" • ■ FÜR I = 1 TOS : PR I NT " - SOFT " ; = NEXT 

PüKEV, 230 = POKEV+1 , 180 = POKER 1 , 245 = POKEV+21 , 1 

PRINT •PRINT : 

PRINTTflIK8>"i ,•»'-■. <•-""', ,-■--; r~-, ,•--. ,--. » n-, r- ," 

PRIHT'TREuiO" h- ' höh '---. h IM I '•--," 

■pRINTTflBtS)"" ifi H! w w w ' a •'-'' ,fl '■"""•" l 

PR I NT iS WUm S*-222£222Z£ l 22Z2£Z222 C 2222£^-22Z£ " 

RR I NT ! ' S»iK2£l2 J »SfJ 2ÜWTC 1". 2*»BtC ZHiiniOiStC 2 J Nt] " 

pr i NT i! pfiiiiiiiii^iHiiiEiiiiL c ziiin: ZüiiiszmüiüL 2 " 

PR I NT " »iiiK^^ÜiüErt N- [ [ ZrtilC ZHÜäilÜlsE ÜMK 2£ i! 
PR I NT " hft iiiaiatZZZ£22ZZ J [ Zmmi ZZZÜÜEZ22 1 TZZZf; u 

pr i nt " fc»ü«Biüiffisäiiii»öBiii-E: zsiSäüisiPH". züUftiiHftar: ziü»iai»i££:iRiiiiiB-r£iii!ii!äRii-rz ** 

pr i nt " üüiiitjLriiiwr. z «»sie zwiir: z»»Ci:isiii!;: »iiiz " 

PR I NT i! lHiliüi'S^hb:iiN-t ZrtiEWC ZüHlh^C ZiBiBiE^aiE *-£üy<"Z " 

PR I NT " üüilüi atZZZ J im. £ Mi 2ZZZ 3 Z2ZZ C Z WWC tZZZ 3 !i 

PRINT"»»»»»^ 1984 BV S-1R ahSSSOFT- iRONflLIi MflVER" 

PR I NT " ÄlSfeu." ; : FÜR I »= i TOS : PR I NT " ÖflECM" ; : NEXT 

FÜRI = 1T0S : PRINT"DEFGM" .: : NEXT : GOSUB46000 

F0RI--23ÖT01 15STEP-3 : FORJ=1T058 : NEKTJ = SB=1-SB : PQKE2848, 245+SB : POKEVS I = NEXT 

GÖTO28880 

O-'O+l : IF0=4THENSVS371S6 : 0=0 

IFPEEKX 5632Ö >~i 1 1THENP0KES+1 , : RETURN 

GOT 0468 00 
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SSAGON32 



^»^«^ 



18 
20 
38 
4@ 
50 
60 
79 
80 

90 ! 
100 
110 

120 

13Ö 
140 
159 
160 
170 
180 
196 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 
320 



REM******:*****:* 

REM* d-Paiwt * 

REIWC) 1984 * 

REM* VOLKER * 

REM*MflRKMILLER* 

REM:*:*********** 

REN***e i n 1 e- i Um9*** 

CLS = PRIHTe78,"ICH BEGRUESSE SIE ZU DEM' 

PR I NTfi 1 34 , " 2E I CHENPRÜGRRMM " 

PR I NTG263 .- " draSonP a i 'fit " 

FÜR R~l TU 3000:NEXT fl 

REM***sPeedPoke*** 

CLS =PR INT "KANN IHR DRAGON SPEEDPOKE?" 



PRINT 
INPUT 

IF A*= 
IF R* : 



R$ 

'"J" THEN 

-■"H" THEN 



GOTO 
GOTO 



190 

£00 



GOTO 150 
POKE fe:HFFD7, 1 
PMÜDE 4, 1=SCREEN1,1 
CLS < PRINT 11 ES FOLGT 
PRINT 1 



Dragonpaint ist ein menüge- 
steuertes Basicprogramm zur 
einfachen Erstellung von Bild- 
schirmgrafiken auf dem Dragon 
32 und dem Dragon 64. 
Die Grafiken werden mit Hilfe 
eines Joysticks und der Tastatur 
erstellt. 



PCLS 

NUN EINE LISTE MIT' 
DEN ANWEISUNGEN CHE SIE LEBER" 

PRINT" DIE TASTATUR ABRUFEN KOENNEN. " 

PRINT" SIE HAT DIE GLEICHE REIHEN-" 

PRINT" FOLGE WIE DIE AUF DEM" 

PRINT" GRAFIKBILDSCHIRM DARGESTELLTEN" 

PRINT" BEFEHLE." 

PR INTÖ41 6, "WEITER DANN — > W" 

IF INKEY** ,, W M THEN GOTO 310 

GOTO 290 

CLS : REM***bef eh 1 & 1 i ste*** 

PR I NT @0 , " 1 L I N I E " - PR I NTG32 , " k KRE I S 
TEN " ■■ PR I N TS 96 .• " a ANMRHLEN ' 
I SBOGEN " : PR I NTfi 1 92 , " ö ZURUE 

330 PR I NT 1544-8 , " WE I TER >W ' 

340 IF INKEY**"W" 
35© GOTO 340 

369 CLS'PRINTS 32., "s ZURUECK IH DAS STEUERPRÜGRRMM" • 
SCHE N " ' PR I NT@ 96.. "h B I LDSC H I RM AUSDRUCK " ■ PR I NT 6128," t" 
NTS 1. 60 , " . PFE I LPOS I T I ON ZE I GEN " = PR I NTG 1 92 , " b RECHTECK 

370 PRINT 6224, "j PUNKTIEREN" 
PR I NT (3256 , " = FLAECHEN ANMALEN " 
PR I NTS288 , " c B I LD ABSPE I CHERN " 

THEN GOTO 430 
IF S 1=239 THEN GOTO 876 



Sie können auch auf einem Drucker ausgegeben 
werden. 

Mit dem rechten Joystick wird der Zeichenstift 
über den Bildschirm gesteuert. Die Position des 
Zeichenstiftes ist die, ab der gezeichnet, ange- 
malt oder gelöscht wird. Bei Kreisen oder Ellip- 
sen gibt der Stift den Mittelpunkt und den Ra- 
dius an. 



'PRINTS 64. 
='RINTei23, "u UEBERMALEN 
< ZUR BEFEHLSLISTE" 



THEN GOTO 360 



z ZEICHNE MIT DEN C URSORT AS 
LOESCHEN > " ■■ PR I NTS 1 60 > " e- KRE 



PR I NTS 6.4 , " B I LDSCH I RM LOE 
PFE l LPOS I T I ON ABFRAGEN " ■> PR l 



390 

400 

410 
420 
430 
440 
458 
460 
470 
480 
490 

500 

510 
520 
530 
540 
550 
560 
570 
580 
590 

600 

610 
620 

630 

640 
650 



PRINT 15448 , "WEITER 



WOLLEN SIE EIN GITTER? <J.-'N> 

THEN GOTO480 
THEN GOTO 580 

1 ' WEL CHE G I T TERGROESSE WOLLEN SIE' 



fl 
PSET 



IF INKEY*="W 

S1=PEEKC341) 

GOTO 406 

CLS = PRINT" 

INPUT A* 

IF fi*=".J" 

IF A*="N" 

GOTO 446 

CL3= PRINT 

INPUT A 

PM0DE4,1 iSCREENlil 

FOR 2=0 T0255 STEP 

LINE (Z,0>-::z, 188) 

NEXT 2 

FOR 2=0 TO 

LINE (0,Z> 

NEXT Z 

REM***maske*** 

PMODE 4, 1 =SCREEN1, 1 

DRRM"BM2:,4 D20R252U20L252" 

DRAU " BM2 , 4R25D20R25U20R25D20R25U20R25D20R25U20R25D20R25U20R25D20R25U20 " 

DRAU " BM6 , 2ÖE 1 Q8M 19.-1 3U6BD6R4BL5 " 

C I RCLE (. 35 .. 1 2 ) , 4 .. 5 : DRRW " BM45 , 1 2U6BD3R 1 E3BG3F3BL4 " 

DRAU " BM56 , 20R5U5L4U3R7U4BM68 , 1 5BU6R4D 1 G4D 1 R4BL4 " 

L I NE i 89 , 8 >< 85 , 1 2 > , PSET , BF ■■ DRRW " BM92 , 1 5U4E2F2D4BU2L4BD2 " 

L 1 NE (. 1 05 , 8 >»■; 1 1 4 , 1 7 > , PSET , B 



188 STEP R 
< 255, Z>, PSET 
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660 fl*105'B*8 

678 L I NE C 1 05 , 8 W 1 1 4 , B > , PSET 

688 B*B+1 

690 1F B*17 THEN GOTO 710 

780 GOTO 678 

710 DRRW'BM 120,15 BU6D5F1R2E1U5BD6BL4" 



&Z%^£ 



720 CIRCLE -' 135, 12>,6, ,9. 6 'DRRW'BM 44, 15 U6R4BG3BL1R3BG3R4BL4" 

730 I. ... I HE £155,8 >-< 1 65 , 1 8 > , PSET , B « DRRW " BM 1 58 , 1 0NR4BD2NR4BD2NR4BD2R4 " < DRfl W " BM 1 70 , 1 

5BR2BU2 U 1 L 1 G 1 D 1 F 1 R2E 1 U 4H 1 L2G 1 BD5 " 

740 DRRW " BM 1 85 , 22U 1 4NF4G4 " • DRAN " BM 1 95 , 1 5R3E 1 U 1H 1 L2H 1 U 1 E 1 R3BP6BL4 " 

750 L I NE C 205 , 8 )-C 215,18 > , PSET , B : DRRW " BM220 , 1 5BU 1 U4E 1 R2F 1 D4G 1 L2H 1 BD 1 " 

760 DRRWBM233, 20 Ri0U5L10R2U5R6D5L8D5U3L3U2O4U2R3D3R10U3R3U2D4" 

??% DRRWBM244, 12U6BD3RR4BU3D6BL4" 

780 DRRW "BM254, 24L20DB0R20U80D20L20D20R20D20L20" 

790 DRRW " BM246 , 4 1 U6R3F 1 D 1 G 1 L3BR3F 1 1 G 1 L3 " < L I HE < 242 , 27 >-< 250 , 32 ) , PSET , B 

800 L I NE ■:: 242 , 47 )-( 248 , 52 ) , PSET , BF ■ DRRW " BM246 , 6 1 BR2U 1 BU2U 1 BD4BL2 " 

810 FOR R*l T09 

828 flsRND <.6>- BaRNDC 6 ) 

838 PSET C242+R,67+B,5> = PSET <242+B,67+Fl,5> 

840 NEXT R 

850 DRRW'BM 247,81BRlEElUlBU2UiBD4BL2" 

860 DRRW'BM 240, 86R9D5R1NL1 1D2L1 1U2R1U5" 'DRRW "BM 242, 102BU1U4E1R2F1BD4G1L2H1BD1" 

870 PM0DE4, i • SCREEH1 , 1 • REM***vereinbnhrufl9eTi*** 

880 PM0DE4 , 1 « SCREEH 1 , 1 ■ S 1 -PEEKX 34 1 > ■■ Z 1 -PEEKC 340 > •• L 1 -PEEKX 342 > .< K 1 -PEEKX 34 1 > ■ R 1 =PE 

EK< 339 > : Hl «PEEKC 338 > •■ U 1 «PEEKC 343 > ■ F 1 «PEEKX 344 ) < PU 1 «PEEKX 344 > ■ RR 1 «PEEKX 338 > < E 1 -PE 

FKC 343 ) < NU-PEEKC 338 ) i B1=FEEK< 340 ) ''3T*PEEKX 341 ) = D1«PEEKC 340 ) ■• Cl-PEEKX 341 > 

890 REM*#*abfra9e und Verteiler** 

980 fi« JÖYSTf« :> ■ B~ JOYSTKX 1 ) = R=RM : B«B*3 

910 LINE <R,B)-<fi+ 5,8+ 5 >, PSET « LINE <R,B >~XR+5,6>, PSET < LINE CR,B HR, B+5>, PSET 

920 LINE c:R,B>-(R+ 5,B+ 5)., PREBET 'LI NE < R,B>-<R+5,B>,PRESET:LIHE< R,B>-<R,B+5),PR 

938 IF ZI =223 THEN GOTO 1330 

940 IF LI »247 THEN GOTO 1120 

950 IF Kl -247 THEN GOTO 1210 

960 IF Rl-251 THEN GOTO 1560 

970 IF Hl «247 THEN GOTO 1980 

980 IF U 1=239 THEN GOTO 1420 

990 IF Fl «251 THEN GOTO 1830 
1000 IF PU 1*253 THEN GOTO 1680 
1010 IF RR 1=251 THEN GOTO 310 
1020 IF El =251 THEN GOTO 2670 
1030 IF NU*254 THEN GOTO 1180 
1040 IF B 1=251 THEN GOTO 2960 
1050 IF ST-253 THEN GOTO 3290 
1060 IF Dl -253 THEN GOTO 3260 
1070 IF 01=251 THEN GOTO 3410 
1080 GOTO 880 

1090 REM****!!** Toeschen*** 
11Ö0 POLS : GOTO 570 
1110 REM*** li nie*** 

1 1 20 X* JOYSTKC > ■■ Y- J0Y8TK< 1 > « X»X*4 • Y*Y*3 
1 130 LINE < fl, B 'X X, Y ), PSET 

1140 IF XOV OR YOO THEN LINE (R,B)-< K, Y). PREBET 
1150 IF X-V OR Y=0 THEN LINE CR,B>~<X,Y), PREBET 
1160 81«PEEK<341>'IF 81-239 THEN GOTO 1190 

1170 XaV'YaQ 

1180 GOTO 1120 

1190 LINE <R,B>~<K,Y>, PSET 'GOTO 880 

1200 REM**#kreis*#* 

1210 V« JÖ YSTKC Ö ) '■ OPEEfcX 65280 > » V« V*4 

1.220 LINE (V,8HV+ 5,B+ 5),PSET'LINE CV,ß>K V+5,B>, PSET 'LINE < V,B>-( V,ß+5>,PSET 

1230 LINE <V/B)-CV+ 5,B+ 5>,PRESET = LIHE (. V»BWV+5> BO, PREBET « LINE (V.BWV..B+5), 
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Die einzelnen Tastaturbe fehle: 
>L< Es wird ab der aktuellen Stiftpo- 
sition mit dem Joystick eine beliebige 
Linie gezeichnet. Wenn Sie gesetzt 
werden soll dann >S<. 
>Z< Mit den Cursortasten wird eine 
beliebige Linie in die Cursorpfeilrich- 
tungen gezeichnet. 




>K< Der Stift wird auf den Kreismit- 
telpunkt gesetzt, dann K. Dann wird 
der Stift auf den Kreisrand gesetzt und 
der Feuerknopf gedrückt. 
>A< Mit den Cursortasten kann man 
eine Fläche ausmalen. 
>U< Mit den Cursortasten kann man 
Linien oder Flächen löschen. 
>E< Nach dem gleichen Prinzip wie 
beim Kreis lassen sich nach Eingabe 
der Exzentrität Elypsen oder Bögen 
zeichnen. 

>B< Mit B läßt sich der ganze Bild- 
schirm löschen. 

>H< H gibt eine Hardcopy auf einen 
Drucker aus. 

>F< Gibt die aktuelle Stiftposition 
an. 

>.< Mit . kann man sich eine be- 
stimmte Stiftposition zeigen lassen. 
>0< Springt in das Befehlsmenü zu- 
rück so oft man will. 
>S< Springt immer in das Steuer Pro- 
gramm zurück. Nur von diesem Pro- 
gramm aus kann man neue Befehle er- 
teilen. 

Es ist wichtig, daß man den Joystick 
langsam bewegt und daß man, wenn 
man z. B. über den ganzen Bildschirm 
wandern muß, möglichst am Rand ent- 
langgeht. 

Die Hardcopy dauert etwas, da erst 
das Bildschirmmenü weggeplottet 
wird, damit es nicht auf den Ausdruck 
kommt. 
Speedpoke können nur die Dragon 32 



PRESET 
1240 PSET 



1250 

\zm 

1270 
1280 
1290 
1309 
131Ö 
1320 
1330 
1340 
1350 
1 360 
1. 370 
1 380 
1390 
140Ö 
1410 
14?0 
1430 
1440 
1 450 
1460 
1470 
1430 
1490 

1.500 

151.0 
1.520 

1 530 
1.540 
1. 550 
1 560 
1570 
1. 580 
1 590 

1600 

1.61.0 
1 620 
1.630 
1 648 
1 650 
1 660 
1.670 
1 680 
1690 

1.700 

1.71.0 
1 720 
1730 

1.740 
1. 750 

i ?m 

1770 
1780 
1 790 

1800 



<R,B,5> 
Pk'J— Pi 

IF R<0 THEN R=R*On 

8i«»PEEKC341)iIF 81=239 THEN GOTO 880 

IF 0*126 OR C=254 THEN GÖTÖ130Ö 

GÖTO 1210 

CIRCLE Cfi,B>..R,5 

GOTO 1210 

REM***2eichfler»*** 

F«R : r>B 

fl=PEEK< 341 > - E-PEEKC 342 > • OPEEK< 343 > ■ D=PEEK< 344 ) 



IF 
IF 
IF 

IF 



fl»223 THEN 
B-223 THEN 
i>223 THEN 
D=223 THEN 



IF 31=239 THEN GOTO 880 



G=G-3 

G-C+3 
F=F~3 

F*F+3 



GaG+1 

F*F-1 

F-F+l 
PSET <F,G,5) 
S1»PEEK(341> 
GOTO 1340 

F*fi : G-B « REM***loeschen*** 
fl«PEEK< 341 ) ■■ B*PEEKC 342 > ■ C-PEEKC 343 ) = D=PEEKt 344 > 
IF H=!223 THEN 
IF 8=223 THEN 
IF 0223 THEN 
IF D=223 THEN 
FOR 0-1 TO 3 
CIRCLE CF,G>..Q,0 
HEXT Q 

CIRCLE <F,G),3,5 
CIRCLE (F,G),3,ß 

S1=PEEKC341>'IF S 1=239 THEN GOTO 870 
GOTO 1430 
REM***aTnmahlen*** 
F=R = G=B 
GOTO 1630 

fl=PEEK< 341 > • B=PEEK< 342 ') ■■ C=PEEKC 343 ) ■ D=PEEKX 344 ) 
IF R*223 THEN G-G-l 
IF B*223 THEN G=G+1 
IF (>223 THEN F*F-1 
IF D=223 THEN F-F+l 
FOR Q-l TO 2 
CIRCLE »:F,G)..Q.5 
HEXT 9. 

Sl«PEEK<34n 
GOTO 1580 

REM***Pos.zei9en*** 

CLS'PRINT" WELCHE BILDSCHIRM POSITION 1 
PRINT "MOECHTEN SIE SEHEN?" 
INPUf fi 
IHPUT B 

PMODE 4,1=SCREEN1,1 
FOR F*l TOS 
PSET'<fl+F,B,5) 
HEKT F 
S1~PEEKC341 
GOTO 1740 
FOR F«i TO 5 
PRESET O : H-F,B,0> = 



IF S 1*239 THEN GOTO 878 



IF 81=239 THEN GOTO 1790 
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1818 
1820 
183Ö 
1848 
1850 
1860 
18?Q 
1880 
1890 
1908 
1910 
1920 
1930 
1940 
1950 
1950 
1970 
1980 
1990 

2090 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2280 
2210 
2220 
2230 
2240 
2259 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 



NEXT F 

GOTO 870 

REM***pos. abf r*9en#*# 

CLS'PRINT'DIE PFEILPOSITION IST:" 

PR I NT R « B 

SlaPEEK<341):IF 81=239 THFN GOTO 1880 

GOTO 1860 

PMOOE 4,1= SCREEN1 , 1 < GOTO 870 

REM#**meflue I oeschsn*** 

R«9 

FOR N«l TO 255 

PSET CN,R,0> 

NEXT N 
RssR+f 

IF-Ra 25 THEN GOTO 1970 

GOTO 1910 

R-225 

FOR K»0 TO 110 

PSET <R,H,Ö> 

NEXT N 

R=R+i 

IF R«255 THEN GOTO 2040 

GOTO 1980 

PÜKE &HFFDS , i REM***har deoP y *** 

CLERR 100,32498 

DEF USR0-32500 

PR I NT#-2 , CHR$< 2?}>"B"; CHR*( 8 ) ; 

FOR 1=32500 TO 32593 

RERD IHH'POKE I,INH 

NEXTI 

GOSUB 2610 

X-USR8C > 

PR I NT#~2 , STR I NGSC 5 , CHR$< 1 3 > > 

CLS = PRINT(2200,"ENDE DER RUSGRBE" 

GOTO 570 

REM**** MRSCHINENCODE**** 

DRTR &H3<M<H7E 

DRTR &H32..&H75 

DRTR 8<H8E^H06^H00 

DRTR 8<H8D,8<H3E 

DflTfl y-ÜF,&H12 

DRTR ^H3l,fe:HR8,JicH20 

DRTR &H1 6 , &HRF .» kH69 

DRTR 8cHlF,&H12 

DRTR &HC6^H07 

DRTR &HE7,&H68 

DRTR ft,HR6;&eHR4 

DRTR &HR7,8«HE5 

DRTR &H31,&HR8,8,H2(3 

DRTR &H5R 

DRTR &H2FL&HF6 

DRTR g*HC6,&H07 

DRTR tcH69,*cHE5 

DRTR &H49 

DRTR &H5fl 

DRTR &H2R,WR 

DRTR &H34,8cH3(3 

DRTR &HBD,&H80,&H0F 

DRTR &H35,&H30 

DRTR &H6R,&H68 

DRTR &H2R,&HED 

DRTR fe<H30,?«H01 



der ersten Serie und die Dragon 64 im 
32k Modus. 

Zum Ausprobieren: der Poke ist 
&HFFD 7,1 

Zusatzanleitung zum Programm 
Dragonpaint 

>B< Man setzt den Zeichenpfeil an 
die Stelle, wo man die linke untere 
Ecke des Rechteckes haben will, dann 
B, und erzeugt mit den Joystick ein 
beliebiges Rechteck. 
>:< Man setzt den Zeichenpfeil 
knapp {ca. 5 Bildpunkte) unter die an- 
zumalende Fläche und drückt :. 
Achtung: Die Fläche muß allseitig 
GANZ umschlossen sein. 
>;< Man drückt ; und kann nun mit 
den Cursortasten eine Fläche punktie- 
ren. 

>C< Wenn man ein Bild auf Kassette 
abspeichern will, drückt man C, war- 
tet bis die Maske gelöscht ist und han- 
delt dann nach dem auftauchenden 
Menü. 

Wenn man ein Bild wieder einladen 
will, geht man so vor: Man tippt ein: 
PCLS (ENTER) 10 PMODE 4,1 : 
SCREEN 1,1 20 GOTO 20. Dann lädt 
man das Bild mit CLOADM"", R und 
startet das obige Programm. 




Warum ein Computer-Buch in der 
Reihe Kompaktwissen? 
Weil nach unserer Erfahrung die Le- 
ser der Reihe Kompaktwissen einem 
ganz bestimmten Personenkreis ange- 
hören - nämlich dem mittleren und 
gehobenen Management ebenso wie 
dem des „Selbständigen" - für den 
Grundwissen über Heimcomputer zur 
Selbstverständlichkeit geworden ist. 

HEYNE KOMPAKTWISSEN 
Eduard Altmann 
HEIMCOMPUTER GRUNDWISSEN 

Heyne-Buch Nr. 22/145, DM 7,80 
Original ausgäbe 
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?430 DRTR kHRC,&H69 

2440 DflTR &H26,MV 

2450 DRTR &H30j&H89,&H00^&HE0 

2460 DRTR &H8C,&HI£,&H00 

2470 DRTR &.H26,&HC4 

2486 DRTR &H32/&H6B 

i?49ö DRTR &H35..&HFE 

2560 DRTR &H33..feH8C..iÜ<H0F 

2310 DRTR &HC6,&H05 

2520 DRTR &HA6,fcHC0 

2530 DRTR &H34..&H54 

2548 DRTR & : HBD,&:H80,fc:H0F 

2550 DRTR kH35,&H54 

2568 DRTR &H5A 

2570 DRTR &H26,8cHF4 

2580 DRTR &H39 

2590 DRTR 8<H0R,&H1B..^H4B..^H00 

2600 DRTR &H01 

2610 CLS'PRINTS 209, "DAS FOLGENDE BILD "j 

2620 PRIMT 6264. "WIRD RUSGEGEBEN") 

2630 FOR >1 TO 500 = HEXT J 

2640 PMODE 4,l = SCREEHl..l 

2658 FOR ->1 TO 1000 'NEXT J 

2660 RETURN 

2670 REM***kreisbofl<m*** 

2680 PMÖDE4, 1 • SCREEN1 , 1 

2690 V« J0Y3TK< > ' V-V*4 ! OPEEKX 65280 > 

2700 LINE (V,BHV+ 5,B+ 5>,P8ET'LINE <V,B>-CV+5,B^PSET'LINE CV.B:KV,B+5),P8ET 

271-0 LINE <V/B)-CV+ 5,B+ 5 X. PRESET 'LINE C V,B>-<V+5, 6 >, PRESET' LINE < V,B>~< V,B+5X. 

PREBET 

2720 R-V-R 

2730 IF R<0 THEN R*R*<-1> 

2740 P8ET <CR,B,5> 

2750 IF C«126 OR C=*254 THEN GOTO 2880 

2760 FOR Q=l TO 19 STEP 2 

???B PRESET <V+Ü,B,0> 

2780 NEXT Q 

2790 GOTO 2696 

2890 CLS'PR INT" WELCHE EXZENTRITRET SOLL DIE ELVP8E HABEN? EK-1 IST EIN KREIS" 

2810 INPU.T Z 

2820 PMODE 4,1=8CREEN1,1 

2830 CIRCLE <R,B>,R,5,Z 

2840 CLS'PR INT "NUR EIN BOGEN? U-'NV' 

2850 INPUT R$ 

2860 IF R$«"N" THEN GOTO 870 

2870 IF fl*s=»j» THEN CL3 

2880 CLS'PR INT "NACH UNTEN ODER NACH OBEN? CU^O)" 

2890 INPUT m 

?900 IF fl*s"0" THEN GOTO 2920 

2910 IF FW* "LT THEN GOTO 2940 

2920 PMODE 4.. 1-SCREEN1..1 i CIRCLE CR,B>,R,9,Z,0, .5 

2930 GOTO 878 

2940 PMODE 4, 1-SCREEN1,1= CIRCLE CR, B>,R,0,Z, 0,5,0 

2950 GOTO 870 

2968 PMODE 4, l'SCREENI, 1 

2970 fl« JOY8TK( ) ■ R»A*4 = B~ JOYSTKX 1 ) ■ B=B#3 

2980 FOR X-l TO 1© STEP 2 

2990 PSET <R+X,B,5> 

3080 NEXT X 

3010 FOR K=i TO 10 STEP 2 

2.020 PRESET (R+X,B,0> 

3030 NEXT X 
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3040 
3060 

3070 

3088 

3090 

31Ö0 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3230 
3290 
3300 
3310 
3328 
3330 
3340 
3350 
3360 
337Ö 
3338 
3390 
3400 
341.0 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3« 10 
3520 
3530 
3540 

3558 
3560 
3570 
3530 

3590 
3600 
36 1 
3620 
3630 
3640 
3650 



1F INKEY*«"B ,r THEN GOTO 3070 

GOTO 2960 

REM***feider***' 

CLS= PRINT "NULLEN SIE LEERE ODER RNGEMRHLTE FELDER? < L--R > 

INPUT R$ 

IF fl*="L" THEN GOTO 3120 

IF flS^'R" THEN GOTO 3170 

GOTO 3030 

PM0DE4, 1 = SCREEN1 , 1 = V-JOYSTfcX 6 > < V*V*4 : 0- JOVSTKC 1 > ! 0=0*3 

L I HE i R , B >-< V , ) , PSET , B 

LINE < R, B X V, >, PRESET.. B 

Sl«PEEK<:34n'IF 31=239 THEN GOTO 3240 

GOTO 3120 

PMODE 4# 1=SCREEN 1,1 

V=JOYSTK< > : V~V*4 : OaJOYSTKC 1 > = 0"0*3 

L I NE < R , B >K V , > •• PSET , BF 

L I NE (. R , B >-<■ V , ) , PRESET , BF 

IF INKEY**"S" THEN GOTO 3230 

GOTO 3130 

L I NE < R , B >■< V , ) , PSET , BF s GOTO 870 

L I NE <. R , B >K V , > , PSET , B : GOTO 870 

RE M * * *9ez i e h 1 1 a rm a I e ritt % 

PRINT <R, B"-26>,5,5 

GO'T'O 870 

REM***Pimktieren#** 

F"=fl : G*B 

fl»PEEK< 341 ) • B*PEEKC 342 > = OPEEKC 343 ) ■ P~PEEK< 344 > 

IF fl«223 THEN G-G-3 

IF B=223 THEN G=G+3 

IF C-223 THEN F-F-3 

IF 0=223 THEN F=F+3 

Y«RND<4)'Z=sRND<4) 

PSET <F+Y,G+Z,5) 

PPET ( F+ ■ ? • r+Y • 5 j 

IF'lNKEY$«"S"'THEN GOTO 870 

GOTO 33Ö0 

REM***rmen u e 1 ö eschen*** 

fi-0 

FOR N=l TO 255 

P8EKN,R,0> 

NEXT N 

R-R+l 

IF R-25 -THEN GOTO 3488 

GOTO 3420 

fl=22S 

FOR Ns@ TO 110 

PSET<R,N,0> 

NEXT N 

fl«fl+l 

IF fi« 255 THEN GOTO 3550 

GOTO 3490 

REM***ahs P e i ehern** * 

POKEfeHFFDb.0 

CLS' PRINT "BITTE LEGEN SIE EINE LEERE" 

PRINT"CRSSETTE EIN UND SCHALTEN SIE " 

PRINT" RUF RUFNRHME. " 

PRINT = PRINT: priht 

PR I NT " afosP e i ehern > e riter " 

fl=PEEKC338).-IF fl=191 THEN GOTO 3648 

GOTO 3620 

CSmWBILD".. 1536 ..7679.- 1536 

GOTO 880 
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Schwer hatten es die 
Menschen in der 
Steinzeit, denn sie 
mußten sich ihr Essen 
bitter erkämpfen. Leo 
Neandertal ist nun ei- 
ner dieser Menschen, 
der seine Familie er- 
nähren muß. 

Leo hat die Aufgabe, dem Saurier Rex 
die Eier zu stehlen, und diese Eier in. 
den unterirdischen Höhlen zu lagern. 
Freilich hat der Saurier Rex etwas ge- 
gen Leo 's Unterfangen, und versucht 
mit allen Mitteln Leo Neandertal am 
Diebstahl der Eier zu hindern. 
Das Spiel ist auf dem Laser 200 1 in 
Laserbasic geschrieben und wird 
mittels linkem Joystick gesteuert. 
Es handelt sich um ein reines Ba- 
sic-Programm, ohne irgend welche 
Maschinensprache Elemente. Zur 
Steuerung kann jeder handelsübli- 
che Joystick benutzt werden. 
Cave Man zeichnet sich besonders 
durch die hervorragende High Re- 
solution Grafik aus. 
Tippen Sie das Programm ab oder la- 
den Sie dieses von Kassette oder Dis- 
kette ein. 

Starten Sie das Programm jetzt mit 
(RUN), und das Titelbild erscheint. Sie 
haben jetzt die Möglichkeit, zwischen 
8 Schwierigkeitsstufen zu wählen, wo- 
bei 1 die kleinste Schwierigkeit und 8 
die größte Schwierigkeit ist. Tippen 
Sie einfach die gewünschte Schwierig- 
keit (Tasten 1 bis 8). Der Rechner 
schaltet jetzt in den Grafik Modus und 
zeichnet die Grafik. 
Nachdem die Titelschrift „Cave Man" 
erschienen ist, ertönt eine Fanfare. 
Das ist das Zeichen, um den linken 
Aktionsknopf am linken Joystick zu 
drücken und somit das Spiel zu begin- 
nen. 

Leo Neandertal steht links im Bild un- 
ter seiner Hütte. Rechts im Bild ist der 
Saurier Rex zu sehen, welcher immer 
wieder den Kopf neigt und Feuer 
speiht. Steuern Sie Leo mittels des 
Joysticks nach rechts, bis Sie den Sau- 
rier Rex erreicht haben. Leo wird sich 
jetzt automatisch nach links umdre- 
hen, und das Ei des Sauriers erscheint 
vor Leo. Bewegen Sie den Joystick 
jetzt nach links, um Leo zusammen mit 
dem Ei in die Hütte zurückzuführen, 
damit Leo das Ei in die Höhlen werfen 
kann. 



Sind Sie jedoch im Bereich des Sau- 
riers vorsichtig, da dieser Feuer 
speiht. Wenn Leo Neandertal von die- 
sem Feuer erwischt wird, so verliert er 
sein Leben und das Spiel ist zu Ende. 
Leo hat jedoch eine Waffe gegen den 
Saurier Rex: seinen selbstgezimmer- 
ten Steinzeithammer. Leo kann diesen 
Hammer mitnehmen und diesen dem 
Saurier an den Kopf werfen, wodurch 
Rex für kurze Zeit betäubt wird. Dann 
kann Leo ungehindert das Ei stehlen. 
Zu Spielbeginn stehen Leo 3 Hämmer 
zur Verfügung. 

Wenn Leo die Absicht hat, sich mit 
einem Hammer auf den Weg zu Rex zu 
machen, so muß' er in seiner Hütte 
stehen, und der Aktionsknopf muß ge- 
drückt werden. Leo wendet sich jetzt 
dem Saurier zu, und der Hammer er- 
scheint vor Leo. Sobald Leo den Ham- 
mer jedoch genommen hat, kann er 
nur noch Richtung Saurier gehen, aber 
nicht mehr zur Hütte zurück. 
Will Leo jetzt den Hammer werfen, so 
ist wiederum der Aktionsknopf zu 
drücken. Es empfiehlt sich jedoch 
schon während des Fluges des Ham- 
mers weiter in Richtung Saurier zu 
gehen, da die Ohnmacht nur kurz an- 
hält. 

Trifft der Hammer den Saurier am 
Kopf, so sieht der gute Rex jetzt Stern- 
chen. Wenn der Hammer jedoch nicht 
trifft oder Leo. den Saurier erreicht hat, 
ohne den Hammer zu werfen, so wird 
ein Hammer abgezogen. Wenn kein 
Hammer mehr zur Verfügung steht, so 
ist das Spiel beendet. 
Der Saurier Rex ist unserem Leo 
manchmal freundlich gesinnt, wenn 
dieser das Ei gestohlen hat und auf 
dem Weg zur Hütte ist. Dann kann es 
nämlich sein, daß der Feuerstrahl des 



Sauriers unseren Leo am Leben läßt. 
Wenn Leo das Ei gestohlen hat, so 
kann er nur noch Richtung Hütte ge- 
hen und nicht mehr in die Richtung 
des Sauriers. 

Schwierigkeitssteigemng: 
Die anfänglich gewählte Schwierig- 
keitsstufe steigert sich nach jeweils 12 
gesammelten Eiern. 
Wenn es Ihnen gelingt die gesamte 
Höhle mit Eiern zu füllen (24 Eier), so 
bekommen Sie einen Bonushammer 
(maximal können 6 Hämmer angezeigt 
werden). 

Punktwertung: 

Sie erhalten für jedes gesammelte Ei 
10 mal Schwierigkeitsstufe Punkte. 
Gelingt es Ihnen die gesamte Höhle 
mit Eiern zu füllen, so werden Ihnen 
neben dem Bonushammer zusätzlich 
1000 mal der augenblicklichen 
Schwierigkeit Punkte gutgeschrieben. 
Nachdem das Spiel zu Ende ist, kön- 
nen Sie durch Druck auf den linken 
Aktionsknopf ein neues Spiel begin- 
nen. 

Tips zum Eintippen: 

Verwenden Sie soviel als möglich die 
(CTRL) Tasten, um Tippfehler auszu- 
schließen. 

An Stelle von „Print" kann einfach ? 
eingegeben werden. 
Sämtliche Leerzeichen in den Basic- 
Anweisungen können weggelassen 
werden, da diese vom Computer auto- 
matisch generiert werden. 
Saven Sie das Programm nach dem 
Eintippen mehrmals auf Cassette oder 
Diskette weg, damit Sie im Falle eines 
Systemabsturzes nicht das ganze Pro- 
gramm nochmals eintippen müssen, 



10 

12 

14 

15 

16 

18 . 

20 

22 

24 

26 

186 

110 

120 
136 
140 

150 



REM ********** **************** 
REM * CRVE M fl H * 

REM * * 

REM * LRSER 2901+1 i. Joystick * 

REH * * 

REM * <C> 1984 by Tromcsoft * 
REM * V.Becker * 

REM ************************** 
REM 
REM 

TEXT 

CGLÖR* 

HOME 

PRINT 

PRINT 

PRINT 



13,1 

SPC( 
SPK 



10); "C fl V 

10); "• 



M fl H" 



CHR* <24>; CHR* <24); CHR* <24) 



Computronic 



Laser 



2001 



IS0 PRIHT "Bitte waehten Sie die Schwierigkeit" ; CHR* <24>j CHR* <24> 

1 70 PR I NT SPC< 4 > i " 1 - k l e i nste Sc hui i er i 9k e i t " 

1 S9 PR I NT SPC< 4 ) ; " 8 - 9roesste Schu i er i 9k e i t " 

190 FÜR I a 1 TO 9i PRIHT CHR* <24>j = NEKT I 

28 e PR I NT SPC< 7 ) ; " ( C > 1984 by Tr or. i caof t " 

205 GOSUB 66900 

£10 GET RU 

220 IF RU < i OR RU > 8 THEH 218 

1800 GOSUB 50009 

1005 VH * = 8E « = FI » 0=H = 3-P " @'E « 

1010 PH = 5 = PM » 7 = HE = 0=E « 
1.028 SH - PH * 8 'SP * Pfl *.S + 1 
1030 ZH = 150=ZM =139 
1035 S = 202 iZ = 152= GOSUB 55080 
GOSUB 10450 
GOSUB 40000 
GOSUB 56009 
RESTORE 

GOSUB 6000@ : EH = 7- GOSUB 20000= GOSUB 60006 
GOSUB 25009 
FOR LI * 1 TO 9 - RU 
CALL - 1536 
1060 JS * PEEK <24> 
1065 IF VH « 2 THEH 19800 
IF JS - THEH 2080 
IF JS > 100 THEH 10600 
GOTO 10000 

IF FI " 1 FIND PM > 22 THEH 35000 
NEXT LI 

IF RS > THEH RS = RS - 1 = GOSUB 59100= GOTO 2046 
GOSUB 59408 
2020 SV « SV +1' IF SV > 4 THEH SV » 1 
2030 OH SV GOSUB 5 1000-52000 .-53000 ,54000 
GOTO 1045 
JS = JS s 2 
IF JS > 10 THEN U000 
FOR K '== 1 TO 7 

ON JS GOTO 2800 .101 0© ,101 08 , 2000 ..101 08 
IF SE * 1 THEN 200@ 
IF VH * 1 THEH 10150 
IF PN > 23 THEN 10120 
GOSUB 57500 = PM = PM + 1 ■. SP- 
GOTO 2000 



1 03g 

1037 
1040 

1041 
1042 

1.943 
1045 

] 050 



1070 

1080 

1990 
2000 
2010 

2015 
2017 



2040 

10000 
10010 
10015 
10020 
10100 
10102 
10105 
10110 
10115 
10120 

101.25 

10130 
10140 

101.50 

1.9160 

10170 PM 
1018Ö SH 



PM * 8 + 1 = GOSUB 56000 



GOSUB 55500 'PM « 23= GOSUB 57580= GOSUB 57000 
ON SV GOSUB 51089,52000.53000.54000 



1! 



GOSUB 55Ö00 = SE 



- c: PM - J. > * 8 = 2 

GOTO 2000 

IF PM > 22 THEH GOSUB 59000 'VH 

GOSUB 59080= GOSUB 57500 

PM + 1 = SP » PM * 8 + %•• GOSUB 56000 
<PM + 1> * 8'ZH => 141= GOSUB 58000 



0= GOSUB 49900' GOTO 2080 



10190 GOTO 2000 

1.0200 IF PM < 6 THEH 2000 

10285 IF VH « 1 THEN 2000 

1.0210 IF SE - 1 THEH GOSUB 55500 

1.0220 GOSUB 57300= PM = PM - 1=SP = PM % 8 + 1 

10225 IF PM < 22 THEH 10230 

10226 OH SV GOSUB 51000.-52000.53000.54000 
10230 IF SE a i THEN 10250 

1.0240 GOTO 2000 

10250 S « CPM - 2) * 8=Z a 152= GOSUB 55000 

10260 IF PM a 6 THEN 10300 

10270 GOTO 2Ö00 

10300 GOSUB 55500 ' 

10310 FOR I a 20 TO 21= 

10320 GOSUB 55000 

10330 SOUND < 195,1.. 15 '> 

10340 GOSUB 55500 

1.0850 NEXT I 

10360 FOR I * 4 TO 27 - 

1.0370 GOSUB 550Ö0 

10375 SOUND (137,1,15) 



GOSUB 57000 



8*1+ 3 



HE 'S = 8*1 



Computronic 



67 



LASER 




I ftiufi GOSUB 55500 

10390 HEXT I 

1R4Ö0 GOSUB 55000 

10405 P * P + 10 * RU' GOSUB 48080 

16410 RE = RE + l'SE ~ 8'E = E + 1 

10415 S * 292:2 * 152= GOSUB 55009 

10417 IF E = 12 THEH GOSUB 10438 

18420 GOTO 2008 

10430 RU * RU + 1« IF RU > 8 THEH RU = 8 

10432 GOSUB 60180 

10435 E « 6 

10448 IF RE - 24 THEH H ~ H + 1 

10458 IF H > 6 THEH H - 6 

10460 IF H > THEH 18480 

10478 GOTO 10496 

10480 FÜR K « 8 TO 8 + H - 1 

1Ö430 SH * 8 * K=ZH « 20= GOSUB 58000 

18495 HEXT K 

19436 IF RE = 24 THEH flE = 8' GOSUB 10510 

10508 RETURN 

10510 CÖLQR« 15,1 

10512 GOSUB 60800 

10514 P * P + 1008 * RU- GOSUB 48880 

10520 FOR I * 171 Tu 176» UHPLOT 32,1 TO 223,1 

18530 HEXT I 

10540 RETURN 

18608 IF H » THEH 2808 

10610 IF PM < 9 RND H > THEH 10630 

10620 GOTO 10700 

10630 IF VH > 8 THEH 2868 

10635 VH * 1' GOSUB 57500' GOSUB 56888 

18640 SH * <FM + 1> * 8'ZH » 141* GOSUB 58888 

10658 GOTO 2008 

10708 IF VH - THEH 2980 

18705 GOSUB 59000 

18710 VH * 2'ZH » 129'X * - 4' GOSUB 58000 

18720 GOTO 2000 

10860 IF VH " THEN 2800 

10805 GOSUB 59000 

18818 ZH * ZH + X'SH * SH + RU : GOSUB 58808 

18820 

18830 

19848 

10858 

10860 



y, 



IF ZH * 185 THEN X - 

IF SH > 238 THEN 10900 

IF SH > 192 RND ZH > 125 THEN 10950 

IF ZH * 129 THEN 10900 

GOTO 1078 
109CH8 VH s 0: GOSUB R9888' GOSUB 49988= GOTO 2808 
10950 GOSUB 53088 'VH - : flS * 12 - RU' GOSUB 54880' GOSUB 51 
a 2- GOTO 2008 

11808 JS * JS - 15 

11810 ON JS GOTO 10200,10208,2000,2000,10200 

20888 DRTR 64, 1,88,2,96,3, 112,4, 144,5, 160,2.. 176,6 

20885 DRTR 56,7,72,2,88,5,184,4,136,8,152,3,168,4,184,9 

20018 C « 

20Ö15 FOR K = 1 TO EH 

20816 G * C + 2 : IF C > 15 THEH C * 3 

20028 COLOR* CA- RERD PV,SK 

20830 FOR I * TO 2 

28040 ON SK GOSUB 20100,20200,20380,20408,20500,20600,20700,20800,20980 

?0058 HEXT I 

20060 FOR LH » PV TO PV + 14' FOR U2 s 1 TO 3 

20078 U - RND <E55> * t5 ! UHPLOT U 1,185 + U 

20080 HEXT US- HEXT Ul 

20090 NEXT K 

£0095 RETURN 

28108 PLOT PV +12+1,107-1 TO PV + 1,187 

1,119 - I 
20118 RETURN 



' GOSUB 52800 'SV 



I TO PV + 1,1 



202fi0 
28218 
20228 
20360 
20318 



PLDT PV + 1,119 - I TO PV +6+1,187-1 TO PV + 12 + 

PLOT PV + 3 + 1,116 - I TO PV + 9 + 1,116 - I 

RETURN 

PLOT PV + 1,187 

RETURN 



I TO PV + 6 + 1,119 - I TO PV + 12 + 



19 


.- I 


TO PV 


I 


119 


- I. 


I. 


187 


- I 



+ 12 + 



Computronic 
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204Ö0 


PLOT PV + 12 + 1,107 - 


I TO PV + 1,107 - I TO PV + 1,119 - I TO PV + 12 + 


1,119 


- I 




20405 


PLOT PV + 1,113 - I TU 


PV + 6 + I.1L3 ~ I 


?04i0 


RETURN 




20500 


PLOT PV + 1,119 - I TO 


PV + 1,107 - I TO PV + 6 + I, 115 - I TO PV + 12 + 


1,107 


- I TO PV + 12 + 1,119 - 


- I 


20510 


RETURN 




20600 


PLOT PV + 1,119 - I TO 


PV + 1,107 - I TO PV t 12 + I,ii9 - 1 TO PV + 12 + 


1,107 


- I 




20610 


RETURN 




20700 


PLOT PV + 12 + 1,107 - 


I TO PV + 1,107 - I TO PV + 1,1.19 - I TO PV + 12 + 


I, 113 


- I TO PV + 12 + 1,113 


- 1 TO PV +3+1,113-1 


20710 


RETURN 




20800 


RECf '-.PV + 1,167 - I>,c 


PV +12+1,119-1) 


20810 


RETURN 




20900 


PLOT PV + 1,119 - I TO 


PV + 1,107 - I TO PV +9+1,107-1 TO PV + 12 + 


1,109 


- I TO PV + 12 + 1,111 - 


- 1 TO PV + 3 + 1,113 - I TO PV +3+1,113-1 TO 


PV + 12 + 1,119 - I 




20910 


RETURN 




25000 


COLOR= 1,1 




25005 


CALL - 1536= 1F PEEK 


(24) > 100 THEN 2502O 


25610 


GOTO 25O05 




25020 


FÜR I s 104 TO 120' UHPLOT 64,1 TO 191,1 


25030 


NEXT I 




25040 


RETURN 




30000 


RECT (PV + 1,21), (PV + 


6..Z?"J'- RETURN 


30480 


PLOT PV + 1,21 TO PV + 


1,24 TO PV + 6,24 TO PV + 6,21 


30410 


PLOT PV + 6,25 TO PV + 


6,27 


S0420 


RETURN 




30500 


PLOT PV + 6,21 TO PV + 


1,21 TO PV + 1,24 TO PV + 6,24 TO PV + 6,27 TO PV 


+ 1,27 






30510 


RETURN 




30600 


RECT (PV + 1,24>,(PV + 


6,27)= PLOT PV + 1,23 TO PV + 1,21 TO PV + 1,21 


306 1 


RETURN 


* 


30700 


PLOT PV + 1,21 TO PV + 


6,21 TO PV + 6,27 


30710 


RETURN 




30800 


RECT (PV + 1,21),(PV + 


6,27)= PLOT PV + 2,24 TO PV + 5,24 


30810 


RETURN 




30900 


RECT <PV + 1,21),(PV + 


6,24)= PLOT PV + 6,25 TO PV + 6,27 TO PV + 1,27 


3091Ö 


RETURN 




31000 


PLOT PV + 6,21 TO PV + 


6,27 . 


31010 


RETURN 




32606 


PLOT PV + 1,21 TO PV + 


6,21 TO PV. + 6,24 TO PV + 1,24 TO PV + 1,27 TO PV 


+ 6,27 






32010 


RETURN 




33000 


PLOT PV + 1,21 TO PV + 


6,21 TO PV +6,27 TO PV + 1,27 


33010 


PLOT PV + 1,24 TO PV + 


5,24 


33020 


RETURN 




35000 


RESTORE 




35005 


GOSUB 69000 




35010 


FÜR I » 1 TO 7- RERD Fl, 


&- NEXT l 


35020 


EN = 8» GOSUB 20OÖ0 




35Ö30 


GOSUB 6O000 




35040 


CRLL - 1536= IF PEEK 


(24) < 100 THEN 35040 


35050 


RUN 




40 000 


CGLOR* 8,1 




40905 


IF P > = 100O00 THEN P - 99999 


400 1 


P$ * STR* (P> 




40020 


PV = 192 - 8 * LEN (P$> 


40030 


L * VflL ( MD* <P$,i,l 


)) + 1 [ 


40050 


UNPLOT PV + 1,21 TO PV 


+ 6,21 TO PV + 6,27 TO PV +. 1,27 TO PV + 1,21 


40060 


UN PLOT PV + 2,24 TO PV 


+ 5,24 ! 


40070 


ON L GOSUB 30000,31000; 


32000 , 33000 , 3O400 , 30500 , 30600 , 30700 , 30800 , 39908 


40080 


IF LEN (P$) < =1 THEN RETURN 


40090 


P* b RIGHT* (P*, LEN (P*) - 1> 


40100 


GOTO 40020 




49900 


H » H - l'SH - (8 + H) * 8= ZU = 20 ■ GOSUB 59O00 


49910 


IF H « Ö THEN 35600 




49920 


RETURN 




50000 


GR 




50010 


C * 2 




50020 


FOR K - TO 8 = FOR 1*910 250 STEP 8 



Computronic 
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50030 COLORa C,1=C * C + 2' IFC>15 THEN C » 2 

59840 PLOT I,K TU I + 7,K 

5ÖÖ60 PLOT 1,191 - K TO I + 7.-191 - K 

50070 NEXT 1 = HEXT K 

50980 FÜR K = 9 TG 133= FOR I '- B TO 1 

50090 COLORa C,1=C = C + 2= IF C > 15 THEN C » C - 15 + i 

56100 PLOT I * 8,K TO I * 8 + 7,K 

50120 PLOT 240 + l % 8>K TO 249 + I # S + 7#K 

50138 NEXT 1= HEXT K 

50140 COLORa 13,1 

50150 FOR I « 16 TO 239- PLOT 1,182 TO 1,182 - RND ( 255 ) * 4 

50160 HEXT I 

50170 FÜR I = 16 TO 239= PLOT 1,1 SS TO 1,166 + RND < 255 > * 4 

50180 HEXT I 

50182 FOR I a 161 TO 165 •■ PLOT 16,1 TO 239,1 

50184 HEXT X 

50186 COLORa 10,1 

50190 FOR I * IS TO 239' PLOT 1,160 TO 1,160 - RND CZ55) * 2 

5Ö200 HEXT I 

502Ö5 COLORa 13,1 

50210 FOR I * 29 TO 39= UNPLOT 1,157 TO 1,170 

50220 HEXT I 

50230 FOR I = 166 TO 182 = PLOT 16,1 TO 28,1 

50240 PLOT 228,1 TO 239,1 

50250 NEXT I 

5B?f-~0 FOR I = 168 TO 182= PLOT 28,1 TO 28 + RND <255> * 4,1 

5Ö270 NEXT I 

50280 FOR I * 166 TO 182= PLOT 223,1 TO 228 -■ RND <255> * 4,1 

50290 NEXT 1 

50320 COLOR= 8,1 

S0S3« FOR I = 24 TO 28' PLOT 1,160 TO 1,128 

50340 NEXT I 

50350 FOR I a i TO 2' CIRCLE < 26,127),!= NEXT I 

50360 FOR I = 24 TO 28= FOR K » 1 TO 10 «U * RND <255> * 30 = U " 128 + U = UNPLOT 

I , U 

50370 NEXT K' HEXT 1 

50380 FOR I * 129 TO 133= PLOT 23,1 TO 63,1 - 4 

50390 NEXT I 

50400 FOR I a i TD Z-. CIRCLE <22,132),I' CIRCLE < 64, 127>,I = NEXT X 

50410 FOR I - 126 TO 133= FOR K = 1 TO 12 =U * RND C25S> * 40 'U - 23 + Ü= UNPLO 

T U..I 

50420 NEXT K' HEXT I 

59430 COLORa 4,1 

50440 FfjR l = l TO 40 

50450 PLOT 16,89 + I TO 24,70 + I TO 32,75 + I TO 40,60 + 1 TO 48,58 + I TO 36, 

52 + I TO 64,45 + 1 TO 72,39 + I 

50460 PLOT 72,39 + I TO 80,47 + I TO 88,49 + I TO 96,54 + I TO 184,68 + 1 TO 11 

2,5© + I TO 120,39 + I TO 128,42 + I 

50470 PLOT 128,42 + 1 TO 136,51 + I TO 144,64 + I TO 152,66 + J. TO 160,60 + I T 

Ö 168,56 + I TO 176,50 + I TO 184,53 + I 

50480 PLOT 184,53 + l TO 192,54 + I TO 200,59 + I TO 208,63 + l TO 216,60 + l T 

224,70 + I TO 232,62 + I TO 239,80 + I 

50580 NEXT I 

50510 FOR I = 80 TO 90= PLOT 16,1 TO 239,1 

50520 NEXT I 

50530 FOR I = 91 TO 120' UNPLOT 16,1 TO 239,1 

50540 NEXT I 

50550 FOR I « 16 TO 239= PLOT 1,91 TO 1,91 + RND C255) * 3 

50560 NEXT I 

50600 UNPLOT 32,76 TO 40,80 TO 48,92 

50610 UNPLOT 104,68 TD 96,75 TO 88,88 

50620 UNPLOT 152,67 TO 160,80 TO 168,90 

50630 UNPLOT 224,70 TO 216,73 TO 208,80 TO 200,83 

50640 COLPR= 14,1 

50650 FÜR I ~ 6 TO 26 STEP 10 - - 

50655 4 =8*1 

50660 FOR K « 1 TO 5 

50670 CIRCLE U,22>,K = CIRCLE <J - 4,24>,K= CIRCLE (J + 4,23>,K 

59680 NEXT fO NEXT I 

50690 COLORa 2 , 1 

50700 FOR I « TO 2 

50710 PLOT 215 + 1,139 TO 215 + 1,141 TO 210 + 1,146 TO 218 + 1,148 TO 209 + I, 



70 
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149 TÜ 209 + 1,152 TO 213 + 1,156 TU 2< 
50728 PLOT 22? - 1,156 TO 230 - 1,153 



NEXT I 
FÜR I « 
HEXT I 
FOR I * 
HEXT I 
FOR I « 
HEXT I 
FOR I = 
HEXT I 
FOR I = 



212 TO 222 : 
142 TO 144= 
223 TO 22?' 
15S TO 153= 
157 TO 159= 



149 TO 228 - 1,149 TO 229 

50730 PLOT 225 - 1,147 TÜ 

139 

50740 

50750 

50768 

50770 

50788 

5Ö800 
508 1 
50820 
50840 
5085Ö 
50860 
50870 
5H900 
51000 
51^06 
510Ö7 
51 8Ö8 
51810 
51.020 
7,132 
51,030 
51049 
51850 

51890 

52000 
52010 



:2 + 1,156 

TO 233-- 1,153 TO 



538 - 1,145 TO 232 



I 



1,146 TO 



pptz „ 



1,147 



222 - 1,144 TO 222 - 1,141 TO 220 - 1,141 TO 218 - I, 

PLOT 1,145 TO 1,155 
PLOT 215,1 TO 222,1 
PLOT 1,147 TO 1,155 
PLOT 228,1 TO 234,1 
PLOT 215,1 TO 



£18,1 

PLOT 223,1 TO 226,1 

HEXT I 

GOSUB 51000 

RETURN 

COLOR« 2,1 

FÜR I = 135 TO 143' UHPLOT 203,1 TO 211,1 

HEXT I 

UHPLOT 217,1 28 TO 2 17,1 30 TO 218, 1 30 TO 2 18,1 36 TÜ 219, 1 37 TO 2 1 9 , 1 30 

PLOT 211,127 TO 215,127 TO 216,128 TO 210,128 TO 209,129 TÜ 216,129 

PLOT 2 1 3 , 1 29 TO 216, 1 29 TO 216,130 TO 204 , 1 30 TÜ 203 , 1 3 1 TO 2 1 7 , 1 3 1 
TO 208, 132 

204,133 TO 265,134 TÜ 217,134 TÜ 217, 
PLOT 213 + 1,136 + I TÜ 21? + 1,136 + 



TO 21 



PLOT 217,133 TO 

FÜR I « © TO 2 : 

NEXT I 

RETURN 

COLÜR* 2,1 

PLOT 207,136 TO 288,135 TO 



.35 TO 211,135 
I 



209,135 TÜ 203,141 TÜ 203,142 TÜ 218,135 TO 21 
0.136 TÜ 269,13? 
52 1 20 PLOT 211,1 36 TO 204 , 1 43 TO 205 , 1 43 TO 212,1 36 

PLOT 217,1 28 TO 217,130 TO 218,1 30 TO 218,1 36 TO 219,137 TÜ 219,1 30 

UHPLOT 211,127 TO 215,12? TO 215,128 TO 210,128 TÜ 209,123 TO 213,129 

UHPLOT 211,139 TO 204,130 TO 203,131 TO 209,131 

UHPLOT 203,133 TO 207,133 TO 207,134 TO 204,134 

UHPLOT 210,133 TO 289,134 



52130 
52140 
52150 
52160 
52178 
5218Ö 
52190 
53800 
53005 
53018 
5302O 
53038 
53940 
54080 
54085 
54018 
54020 
54048 
55000 
55010 

+ 5.Z 
55815 
55820 
55580 
55518 

S + 5 
55515 
55528 
56008 
56885 
56810 
56820 
56838 
56848 
56850 
56860 
56878 
56880 



UHPLOT 214,136 TO 214,137 

RETURN 

COLORa 9,1 

FI BS 1 

FOR I * 186 TO 192 STEP 2= 
NEXT I 

SOUND < 1 , 1 , 1 5 '> , < 2, 1 , 1 5 ) , C 3. 
RETURN 
COLORb 9,1 
FI « 8 
FOR I * 186 TO 192 STEP Z- 
HEXT I 
RETURN 



PLOT 282,144 TO 1,157 
1,15>,< 1,1, 15,1 > 

UHPLOT 202,144 TO 1,157 



COLOR= 15,1 


















PLOT 8 + 2,2 TO S + 


4,2 + 


1 TO S 


+ 


2,2 + 


1 TO 8,2 + 


2 TG S + 


5,Z + 


2 TO S 


+ 3 TO S,2 + 3 TO S 


2 + 4 


TO 8 + 


5 


2+4 


TÜ 8 + 4,2 


+ 5 TD 8 


+ 1,2 


+ 5 


SOUND < 113,1, 15 $ 


















RETURN 


















CÜLOR« 15,1 


















UHPLOT S + 2,Z TO S 


+ 4,2 


+ 1 TO 


3 


+ 2,2 


+ 1 TÜ 5,2 


+ 2 TO 8 


+ 5,2 


+ 2 TO 


Z + 3 TO 8,2 + 3 TO 


8,2 + 


4 TO S 


+ 


5,2 + 


4 TO 3 + 4 


2 + 5 TO 


8 + 1 


2 + 5 



SOUND < 16,1, 15 > 
RETURN 
CÖLQR« 10,1 
SM « SP- - 1 
PLOT 8M,2M TO SM + 
PLOT SM ~ 1,ZM + 1 
FOR I * - 2 TO - 
NEXT I 
COLÜR* 6,1 

FOR I * Z TO 4-- PLOT SM, ZU + I TO SM +■ 3,2M + I 
NEXT I 
UHPLOT SM + 2,2M + 2 



2,2M 

TO SM + 3;ZM 

1= PLOT SM + 



+ 1 

I,ZM + 2 TO SM + I,2M 



+ 4 
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56098 PLOT SM + 4,ZM + 3 

56100 PLOT 8M,ZM + 5 TO SM + 2,ZM + 5 

36120 PLOT SM,ZM + 6 TD SU + 1,ZM + 6 

56136 PLOT SM- SM + 7 TO SM + 2,ZM + 7 

56146 FÜR I s 8 TO 11» PLOT SM - 1..ZM + I TO SM + 3.-ZM + I 

56150 HEXT I 

56160 PLOT SM + 4,ZM + 8 TO SM + 4,ZM + 7 TO SM + 7,ZM + 7 

56170 PLOT SM + 6,ZM + 6 TO SM + 6,ZM + 8 

56180 COLOR* 7,1 

56198 PLOT SM - 1,ZM + 12 TO SM + 3,ZH + 12 TO SM + 3,ZM + 13 TO SM - 1,ZM + 13 

TO SM - 1,ZM + 14 TO SM,ZM + 14 

56208 PLOT SM + 2.-ZM + 14 TO SM + 3.-ZM + 14 

56210 COLOR» 6.. 1 

K6220 FOR 1 = 15 TO 16- PLOT SM - 1,ZM + I TO SM.-ZM + I 

56230 PLOT SM + 2,ZM + I TO SM + 3,ZM + I 

56240 NEXT I 

56250 FÜR I == 17 TO 18 = PLOT SM"- l,Zt1 + I TO SM + 4,ZM + I 

56260 HEXT I 

56265 SOUND C 135, 1,15) 

56270 RETURN 

57000 COLOR' 10.-1 

57005 SL « SP - 2 

57010 PLOT SL,ZM TO SL - 2,ZM 

57020 PLOT SL + l,Zf1 + 1 TO SL - 3..ZM + 1 

57030 FÖR I « - 2 TO - 1« PLOT SL - I,ZM + 2 TO SL - I,ZH + 4 

57040 HEXT I 

57050 COLOR- 6,1 

5?m® FOR I * 2 TO 4= PLOT SL/ZM + I TO SL - 3,ZM + I 

57070 NEXT 1 

57088 UNPLOT SL - 2*211 + 2 

57090 PLOT SL - 4,ZM + 3 

57100 PLOT SL,ZM + 5 TO SL - 2,ZM + 5 

57120 PLOT 8L,ZM + 6 TO SL - i,ZM + 6 

57130 PLÖT SL,ZM + 7 TO SL - 2,ZM + 7 

57140 FOR I == 8 TO 11= PLOT SL + 1,ZM + I TO SL - 3,ZM + I 

57150 NEXT I 

57160 PLOT SL - 4,ZM + 8 TO SL - 4,ZM + 7 TO SL - 7,ZM + 7 

57170 PLOT SL - S,ZM + 6 TO SL - 6,ZM + 8 

57180 COLOR* 7,1 

57190 PLOT SL + 1,ZM + 12 TO SL - 3,ZM + 12 TO SL - 3,ZM + 13 TO SL + 1,ZM + 13 

TO SL + 1,ZM + 14 TO SL,ZM + 14 

57200 PLOT SL - 2,ZM + 14 TO SL - 3,ZM + 14 

57210 CÜLÜR= 6,1 

57220 FOR I * 15 TO 16= PLOT SL + 1,ZM + I TO SL,ZM + I 

57230 PLOT SL - 2,Zf1 + I TO 8L » 3,ZM + I 

57249 NEXT I 

57258 FOR I « 17 TO 18= PLOT SL + 1,ZM + I TO SL - 4,ZM + I 

57260 NEXT I 

57265 SOUND (135,1,15) 

57270 RETURN 

57500 CÖLOR= 1,1 

57505 SM «SP 

57510 FOR I * - 8 TO ?■ UNPLOT SM + I,ZM TO SM + X,ZM + 18 

57520 NEXT I 

57530 SOUND (73,1,15) 

57540 RETURN 

58060 COLOR= 8,1 

58010 PLOT SN + 3,ZH TO SH + 3,ZH + 7 TO SH + 4,ZH + 7 TO SH + 4,ZH 

58020 COLOR« 14,1 

58Ö30 FOR I * 1 TO 3= PLOT SH + 1,ZH + 1 TO SH + 6,ZH + I 

53040 NEXT I 

58045 SOUND (184,1,15) 

58050 RETURN 

59000 COLOR* 8,1 

59810 UNPLOT SH + 3,ZH TO SH + 3,ZH + 7 TO SH + 4,ZH + 7 TO SH' + 4,ZH 

59020 COLOR= 14,1 

59030. FOR I - 1 TO 3= UNPLOT SH + I,ZH + I TO SH + S,ZH + I 

59040 NEXT I 

59645 SOUND (165,1,15) 

59050 RETURN 

59180 SS =* SS + 1 = IF SS > 2 THEN SS = 1 
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FI * 




5912Ö 


ON SS GOSUB 59200,59308 


- 


59J.3Ö 


RETURN 




59208 


GOSUB 59406 




39220 


PLOT 211,126 TG 213,124 




59238 


PLOT 213,126 TO 211,124 




59240 


PLOT 216,126 TO 218,124 




59250 


PLOT 218,126 TO 216,124 




59255 


SOUND < 2 11,1, 15 > 




59260 


RETURN 




59300 


GOSUB 53406 




59310 


DOLOR« 8,1 




59340 


PLOT 214,126 TO 216,124 




59345 


PLOT 216,124 Tu 214,124 




5934? 


SOUND < 195, 1,15) 




59360 


RETURN 




59490 


CÜLOR= 8,1 




59410 


FÜR L = 124 TO 126' UNPLOT 211,L TO 218, 


L. 


59420 


HEXT L 




59430 


RETURN 




60800 


SOUND < 1 35 , 5 , 1 5 > , ( 1 60 ,5,1 5 > 




60010 


SOUND < .95, 5, 15) 




60820 


SOUND U13,5,15> 




60830 


SOUND C 135, 10, 15 ) 




60840 


SOUND (148,10,15) 




60050 


SOUND (135,18,15) 




60Ö6Ö 


SOUND i 65 ,5,15) , < 95 , 5,15 ) 




6Ö070 


SOUND (95,5, 15),< 135,5, 15) 




60080 ffi RETURN 




60100 


rtSOUHD (95,8, 15),< 135,8, 15),( 169,8, 15 > 
^SOUND ( 1 1 3 , 3 , 1 5 ) , ( 1 35 , 8 ,15) , < 1 6 5.8,15 ) 




60110 




60120 


SOUND (95,8,15),( 135,8, 15 ),( 160.8- 15) 




60130 


RETURN 





Farben 

3 Tonkanäle und 1 Rauschkanal 
32 Sprite möglich 
eingebautes Joystickinterface 

eingebaute parallele Schnittstelle 
Kassetteninterface 

Diskettenstation 

2 Laufwerke steuerbar 

Standard 5,25 inch einseitige Diskette 

Spurendichte: 48 tpi 

Spuren pro Diskettenseite: 40 

Sektoren pro Spur: 16 

Bytes pro Sektor: 256 

Kapazität: 160 KB pro Diskettenseite 

Plattenrotationsgeschwindigkeit: 300 

rpm 

Unverbindliche Preisempfehlungen: 
LASER 2001 Konsole: DM 598,- 

16 K Memory 

Expansion Modul: DM 218,- 

DR 10 Datenrecorder: DM 99,- 

PC 20 Printer Cable: DM 69,- 

DI 100 A Disc Drive Controller + 
FD 100 A Floppy Dies Drive: DM 698,- 
Wir danken der Fa. Sanyo Video für 
die freundliche Bereitstellung der 
Testgeräte und für die freundliche Un- 
terstützung bei technischen Fragen. 
4 Volker Becker 




W2001 






■ ■ I |-r . -r , ■ t ■ 



■ »■■■■□■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 



»im»»:»! HOME-COMPUTER iii 



CPU 6502 A, 32 KByte RAM, 
16 KByte ROM, Microsoft- BASIC, 
hochauflösende Grafik 
256x192,16Farben, 
Video-Audio-Aus- — 

gang, HF-Modulator. 
Eingebaut: 
Centron ics-Parallel- 
Schnittstelle, Rekorder- 
Interface, Joystick- 
Interface. Optional: Daten- 
rekorder, 1 6 KRAM Erweite- > 
rungsmodul. Druckerkabel, 
Disk-Controller/Disk-Drive. 




...der viele 
in den Schatten stellt! 



Im Fachhandel. 

Auskunft: Generalimporteur SANYO VIDEO Vertrieb GmbH &Co., Lange Reihe 29, 2000 Hamburg 1, Telefon 040/2801045-49 
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Schon gewußt? 



Preiswert drucken, 
aber? 

Um mit dem TI-99-4A im DIN-A 4- 
Format zu drucken, war bisher 
eine aufwendige, kostenintensive 
Peripherie erforderlich. Nun aber 
geht es einfacher und preiswerter. 

Es gibt verschiedene Interfaces, die di- 
rekt an die Konsole angeschlossen 
werden können, und mit diesen kann 
dann ein Drucker direkt verbunden 
werden. Für diesen Bericht wurden 
getestet: 

Das Interface MBI der Fa. Klein. 
Der Drucker stx-80 der Fa. star. 
Die Montage beider Geräte dauert kei- 
ne 5 Minuten. 

Bevor wir die Arbeitsweise beschrei- 
ben, sollen zwei „Nachteile" des Druk- 
kers nicht verschwiegen werden: 

1 . Es wird Thermopapier benutzt. 

2. Die Bedienungsanleitung ist dürftig 
und nur in englisch. 

Zu 1 muß man aber bedenken, daß 
Farbbänder für Normaldruck auch 
nicht eben billig sind und Reparaturen 
am Thermodrucker wegen der 
nichtvorhandenen komplizierten Me- 
chanik, z. B. des Druckkopfes, selte- 
ner und preiswerter sein dürften. 
Zu 2. Soll dieser Bericht Abhilfe schaf- 
fen. Wir wollen nicht zuviel techni- 
sche Daten bringen, sondern prakti- 
sche Hilfe geben, die aus der Anlei- 
tung nicht oder nur schwer zu entneh- 
men ist. 

Was leistet der stx-80 nun? - Da wä- 
ren zu erwähnen: 

Sehr leiser Druck mit 60 Zeichen/sec. 
80 Zeichen pro Zeile, in Breitschrift 
40. 

Deutsche Umlaute Ä, Ö, Ü und ß. 
Groß- und Kleinschrift (siehe Bild 1). 
Breitdruck (siehe Bild 2). 
64 vordefinierte Grafikzeichen (siehe 
Bild 3 u. 4). 

Bit Image Mode (Einzelpunktansteue- 
rung). 

Änderung des Zeilenabstandes 
(wichtig z. B. bei Baikendiagrammen) 

Alle diese Eigenschaften können nach 
Einstellung der DIP-Schalter softwa- 
remäßig gesteuert werden. Genau da- 
mit wollen wir uns befassen. Denn hier 
liegt die Schwäche des Manuals. 
Das beste Schriftbild ergibt sich, wenn 
man in Großbuchstaben schreibt. Da- 
her braucht man auch nur über die 
eckige Klammer (auf) ein Ä, über dem 
Schrägstrich links unten ein Ö (Z-Ta- 
ste) und über der eckigen Klammer 
(zu) ein Ü zu kleben. 



Angesprochen wird der Drucker mit 
„RS232.BA=4800" ohne . Zwischen- 
raum! Die 1. PGM. -Zeile heißt dann: 
100 open #1:„RS232.BA=4800", Out- 
put, 

und gedruckt wird mit: 
110Print#l: „Testtext". 
Will man dieses Wort in Breitschrift 
drucken, so heißt der Befehl: 
CHR$(14); also: 

110Print#l:CHR$(14); „Testext". 
Der Befehl CHR$(14) muß vor jeder 
Zeile stehen, die dann die Hälfte näm- 
lich statt 80 Zeichen hat. Soll hinter 
der Breitschrift wieder in Normal- 
schrift gedruckt werden, muß der Be- 
fehl mit CHR ' 

CHR#(20); wieder aufgehoben wer- 
den. Also: 

110 Print#l:CHR$(l4);„Testext"; 

CHR$(20); „Testext". 
Zu beachten ist das Zusammentreffen 
von Grafik und Breitschrift. Hier müs- 
sen die Befehle in aufsteigender Rei- 
henfolge eingegeben werden. Gra- 
fik=(15): 

110 Print#l:CHR$(14); CHR$(15); 
„Testext". 

Und hier nun die Liste der Steuer- 
befehle: 

CHR$( 9); = Druck ab Spalte 1 1 
CHR$(10); = 2 Leerzeilen 
CHR$(12); = Vorschub auf die nach- 

CHR$(13); = 1 Leerzeile 
CHR$(14); = Breitschriftmodus 
CHR$(15); = Grafikmodus 
CHR$(18); = Aufhebung des Grafik- 
modus 
CHR$(20); = Aufhebung des Breit- 

schriftmodus 
CHR$(27);„A"CHR$(1); = Zeilenab- 
stand 1/11 Zoll 

CHR$(27); ;( A"CHR$(2); = Zeilenab- 
stand 1/6 Zoll 

1/1 1 Zoll bedeutet praktisch keinen 
Abstand zwischen den Zeilen und 
wird z. B. bei den Grafiken benutzt. 1/6 
Zoll ist die Rückstellung in den Nor- 
malabstand. 

Achten Sie darauf, den Grafikmodus 
immer aufzuheben, da der Drucker 
sonst alles folgende ebenfalls im Gra- 
fikmodus ausgibt (nicht zu verwech- 
seln mit dem Bit Image Modus). 
Eine Tabelle der Grafikzeichen und 
welches Tastaturzeichen sie anschla- 
gen müssen, zeigen die Bilder 3 und 4. 
Bild 4 zeigt die Wiedergabe durch den 
Drucker. Bei Bild 3 helfen die Umran- 
dungen, die Zeichen, z. B. senkrechte 
Striche, richtig zu plazieren. 
Um beispielsweise Balkendiagramme 
auszudrucken, darf praktisch kein 
Abstand zwischen den Zeilen beste- 



hen. Dazu dient der vorletzte Befehl 
aus der vorstehenden Liste. Wird 
hierbei mit For-Next-Schleifen gear- 
beitet, muß der Befehl 
CHRY$(27);„A";CHR$(1); 
vor der Schleife stehen und der ihn 
aufhebende Befehl dahinter. 
Die Stellung der DIP-Schalter, die 
leicht zugänglich unter Papierrolle lie- 
gen, ist für die deutsche Schreibweise: 

1, 3 und 5 nach hinten (ON), 

2, 4 und 6 nach vorne (OFF. 

Damit kennen Sie die wichtigsten Ei- 
genschaften und können nun Ihren TI 
noch vielseitiger einsetzen. 
Zum Schluß noch ein Lob der Fa. star, 
die dem Autor, der sich als Privat- 
mann meldete, bei einigen der obigen 
Probleme mit telefonischen Rückrufen 
bei der Lösung geholfen hat. Da 
schöpft man, weil ungewöhnlich in der 
Branche, gleich wieder etwas Hoff- 
nung. 

Herbert May 
star Europe GmbH 
Frankfurter Allee 1-3 
6236 Eschborn-TS 
Klein-Computer 
Münzstraße 34 A 
5600 Wuppertal 2 



Neue Produktlinie Zubehör 
für alle PC-Computer-Systeme 
unter der Marke ASCOM 

Zur Hifi '84 hat die DYNAMICS mar- 
keting GmbH ihr Angebot ganz we- 
sentlich erweitert. Unter der Marke 
ASCOM bringt DYNAMICS ein um- 
fangreiches Computer-Zubehör-Pro- 
gramm auch für den PC -Bereich auf 
den Markt. 
Die einzelnen Produktgruppen sind 

1. Kabel 

2. Buchsen, Stecker, Kupplungen 

3. Interface, Buffer, Weiche 

4. Akustik-Koppler, Lightpen 

5. Computer-Pflege-Serie 

1. Kabel 

Zum Verlängern, Anschließen und 
Verbinden des Computers mit Peri- 
pheriegeräten sind gute und passende 
Kabel unerläßlich, deshalb bietet Dy- 
namics unter der Marke ASCOM fol- 
gende Kabel an: 

Computer-Rundkabel, 9adrig und 
Computer-Rundkabel 25adrig, beide 
mit Abschirmung gegen Störungen z. 
B. von benachbarten Geräten, 2 m 
Länge. 

Computer-Flachband-Kabel, 25adrig, 
flache Kabel sparen Platz, sind mecha- 
nisch flexibler und widerstehen besser 
äußerem Druck. 
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2. Buchsen, Stecker, Kupplungen 

Für die Verbindung zwischen diver- 
sen PC-Computern mit den üblichen 
Schnittstellen und Peripheriegeräten 
wie Drucker, Akustikkoppler usw. 
braucht man Buchsen, Stecker und 
Kupplungen. Alle Kontakte sind Gold/ 
Zinn plattiert. Es gibt im einzelnen: 
RS 232C/V24 Rundkabel-Stecker, 
25polig mit Steckerkappe, 
RS 232C/V24 Rundkabel-Stecker- 
Buchse, 25polig mit Buchsenkappe; 
Centronics-Rundkabel-Stecker, 36po- 
lig mit Abschirmung und Metallkap- 
pe, 

Centronics-Rundkabel-Stecker, 36po- 
lig mit Abschirmung und Metallkap- 
pe; 

RS 232C/V24 Wechselkupplung, 
25polig, Stecker/Stecker, durchkon- 
taktiert, 

RS 232C/V24 Wechselkupplung, 
25polig, Buchse/Buchse, durchkon- 
taktiert. 

3. Interface, Buffer, Weiche 

RS 232C/V24-Interface für den Com- 
modore 64 zum Anschließen von Peri- 
pherie-Geräten, mit durchgeführtem 
User-Port, außerdem schaltbar: RS 
232C/V24 User-Port. 
2K-Spooler für den Commodore 64, 



Impressum: Computronic erscheint 
monatlich im Verlag: Tronic-Verlags- 
gesellschaft mbH, Landstr. 29, 3444 
Wehretal 1, Tel.: (0 56 51) 4 06 43/ 
4 06 93. Redaktion: (Verantw.) Rainer 
Beck, Axel Grede, Frank Brall. Freie 
Mitarbeiter: G. Wagner, Volker Bek- 
ker, Rolf Freitag. Gesamtherstellung: 
D + V Paul Dierichs GmbH + Co. KG. 
Kassel. Vertrieb: Inland (Groß-, Ein- 
zel- und Bahnhofsbuchhandel), sowie 
Österreich und Schweiz: Verlags- 
union, 6200 Wiesbaden. Anzeigen- 
verwaltung: E. Herwig. Anzeigen- 
preis: Es gilt die Anzeigenliste Nr. 1. 
Bitte Media-Unterlagen anfordern. Be- 
zugspreise: Einzelheft (Inland) DM 
5,50, Abonnement (Inland) DM 55/-, 
(Ausland) DM 75,-. Autoren und Ma- 
nuskripte: Bei Zusendung von Manu- 
skripten und Datenträger erteilt der 
Autor dem Verlag die Genehmigung 
zum Abdruck und Versand der veröf- 
fentlichten Programme auf Datenträ- 
ger. Für die mit Namen des Verfassers 
gekennzeichneten Beiträge übernimmt 
die Redaktion lediglich die presse- 
rechtliche Verantwortung. Alle in die- 
ser Zeitschrift veröffentlichten Beiträ- 
ge sind urheberrechtlich geschützt. 
Nachdruck (auch auszugsweise) und 
Vervielfältigung nur mit ausdrückli- 
cher Genehmigung des Verlages. Für 
unaufgeforderte Einsendungen von 
Manuskripten, Tonträgern und Soft- 
ware wird keine Haftung übernom- 
men. 



gepuffertes Drucker-Interface für alle 
RS 232C/V24 Schnittstellen, mit 
durchgeführtem User-Port, erweiter- 
bar mit 16K-Modules bis auf 34K. 
16K-Erweiterungsbuffer für Spooler. 
IEEE-488-Interface für Commodore 
64, 8032 und 4032 zum Anschluß von 
IEEE-Geräten, mit durchgeführtem 
Extentions-Bus. 

RS 232C/V24 Weiche für den An- 
schluß an die RS 232C/V24 Schnitt- 
stelle zum Koppeln von 2 Peripherie- 
Geräten, umschaltbar. 
Centronics-Weiche für den Anschluß 
an Centronics-Schnittstellen zum 
Koppeln von 2_ Peripherie-Geräten, 
umschaltbar. 

4. Akustik-Koppler und Lightpen 
Mit den bewährten Competition Pro- 
Joysticks und dem Disketten-Locher 
hat sich Dynamics beim Verbraucher 
bereits einen Namen als Anbieter für 
interessantes Zubehör geschaffen. 
Dies Verbraucherinteresse soll mit 
den neuen Produkten gefestigt und 
ausgebaut werden. 

Zum Herbst- und Weihnachtsgeschäft 
präsentiert Dynamics den Akustik- 
Koppler von Ascom für den Commo- 
dore 64 mit integriertem Interface zum 
direkten Anschluß auf dem Extention- 



Bus des C64. Der Ext. -Bus wird im 
Akustik-Koppler durchgeführt, so daß 
der Anwender weiterhin den Ext. -Bus 
für andere Einsatzzwecke benutzen 
kann. 

Eine FTZ-Nr. wurde bereits beantragt. 
Besonders interessant aber ist der ab- 
solut günstige empf. VK-Preis von 
198,- DM. 

5. Computer-Pflege-Serie 
Um Störungen der gegen Verunreini- 
gungen sehr empfindlichen Computer- 
Hardware zu vermeiden, ist die richti- 
ge Pflege und der Schutz vor Staub für 
den Computer-Besitzer besonders 
wichtig. 

Die Ascom-52/2"-Reinigungsdiskette, 
mit der Reinigungslösung in einer se- 
paraten Flasche, reinigt Lese- und 
Schreibköpfe optimal, sie gehört zur 
regelmäßigen Wartung der Hardware 
einfach dazu. Die Ascom-Schutz- und 
Staubhüllen schützen die verschiede- 
nen Geräte besonders wirkungsvoll 
durch den maßgerechten Zuschnitt. 
Sie gibt es für den Commodore 64, das 
Commodore-Disketten-Laufwerk 
1541, den Commodore Drucker sowie 
für das IBM-PC Keyboard und die Ep- 
son Drucker MX 70/80, IDS 480 und 
NE 8023. 
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Computer-Börse 



Verkäufe 



Tl 99/4A, 30 Programme, z. B. 
Cowboy geg. 20- DM bei M. 
Morgen, Lindenstr. 66, 7333 
Ebersbach 



Anti-Brumm-Heiz-Adapter im 

formschönen Slim-Line-Ge- 
häuse für den geplagten 
Spectrumfreak: 20 DM 
(Scheck o. Schein). Info ge- 
gen 80 Pf Rückporto. T. 
Schröer, Hohlstr. 11, 6791 
Steinbach 



Verk. ZX 81/16 KCMEMO + 

80 Pr. + Reset + Shift Look + 
Rem-Ansteuerung + gr. Ta- 
statur + Bücher + 90 Listings 
+ Ein/Aus + gr. Netzteil für 
350,- DM: Suche Spektrum 
48 K, T. Bachmann, Johannis- 
bruch 9, 2357 Springe 1 

DODDDDDDDDDaüDrjDDD 

□ □ 

□ Tl 99/4A + Exbasic + □ 
g cfiv. Bücher + Rec. + Ka- g 
G bei + Basic-Kurs, VB d 
a 750,- DM. a 
H Tel.: 28 61 /48 45 

d Sa. ab 18.00 Uhr d 

d □ 

DDODDDDDDDDnrjDDDDD 

Atari/Spectrum-User-Club, 

monatl. Info, viele Superpro- 
gramme, Beitrag nur 5- DM. 
Melden bei: ASUC, Güterslo- 
her Str. 68, 4803 Steinhagen 



C-64-Superprogramme ge- 
gen Unkosten oder Tausch. 
Gratisliste bei Postlagernd 
058542 B, 7900 Ulm/Donau, 
Diskette oder Kassette 



7 x 81 mit 16 K/Byte. Erweite 
rung 4- große Tastatur + ca. 
30 PRG. Preis ab 230 - DM. 
Tel. 7143/31577 



100 neue Programme für MZ 

80 K, MZ 80 A, MZ 700, VZ 
200, Laser 21 0, Tl 99. Info, 1,- 
DM in Marken, von H. Weisel, 
Königsberger Straße 20, 
5412 Ransbach 



Verkaufe 

Anrufbeantworter 

Drahtlostelefon 

Telefon-Anlage 

Eurosignal 1200,- DM 

div. USA-Telefone 

Info bei: 
Reinhard Winner 

Höchbergerstraße 62 
87 Würzburg 



Software für Commodore, Tel. 
02 74 72 99 



oooooooooooooooooo 

g Alte Hasen haben sie g 

O schon! Wann bestellen o 

O Sie Info für beste Soft- O 

q wäre für Ihr Syst. Rück- g 

O Umschlag einsenden an o 

O M. Kiwitt, 2000 Harn- O 

q bürg 74, postlagernd. g 

OOOOOOOOOOOOOOOOOO 



Verkaufe Taschenrechner Tl 

59, Disketten 8 Zoll SS/SD, 
Preise VHS. Willi Hirschlein, 
H. v. Hohenlohestr. 44, 6990 
Bad Mergentheim, Tel. 
07931/41605 



Verkaufe: TI-99/4A + Ext. Ba- 
sic + Joysticks + Recorder -f 
Kabel + Tl-Invader + dt. 
Handbuch + ca. 70 PGM. + 1 
Tl-Magazin + Chip-Buch. VB: 
700- DM. Tel.: 02 21 / 
60 76 76 



Achtung: TI99/4A + Mini Me- 
mory, Editor/Assembler/Dis- 
assembler. Paket nur 30- 
DM in Scheinen an T. Mielke, 
Falkenkamp 17b, 2000 Nor- 
derstedt 1 



J Here is Wimpy! 

3 Hello User, biete für 

3 C-64 Disk beidseitig mit 

I Topprogrammen für DM 

< 50,- auch Tausch. 

■ Mr. Wimpy 

i 4350 Recklinghausen 

5 Postfach 1017 21 



Verk. TI-99/4A + Ex-Ba- 
sic + Sprach-Synthesizer 
+ Joyst. -Adapter + ca. 

100 Prg. + Zubehör. VB. 
A. Neuburger, Feldstr. 16, 
7505 Ettl. 8, Tel. 72 43 / 
2 91 75. 



Tl 99/4 A Ext. -Spiel nur für Er- 
wachsene - bitte Alter ang. 
zum absoluten Preishit von 
nur DM 10,- im Umschl. an T. 
Karbach, Remscheider Str. 
18, 5650 Solingen 1 



Wenn ihr „Mugsy von Melbour- 
ne House" wollt, dann kriegt 
ihr es für 35 DM (vielleicht) 
noch bei: Jan Weigner, Carl- 
Schurz-Str. 1 1 , 2800 Bremen 
1, Tel. 04 21 7 34 63 87 



Tl 99/4A. Erstelle Druckerli- 
sting v. Ihren Programmen in 
Tl- u. ext. Basic, je Pgm. -Zeile 
4 Pf. + 2,50 DM f. Portokass. 
m. V. -Scheck o. Briefmarken 
an H. Schwab, Loch 21 , 8504 
Stein 



OOOOOOOOOOOOOOOOOO 

o o 

o TL-99/4a und alle Atari- O 

g Computer für Ti: g 

o Adventure Modul mit O 

g Cassette Mission Impos- g 

sible und Pirate Adven- o 

O ture: 160,- DM für Atari O 

g Star Raiders für 70,- DM g 

o bei o 

8 O. Toffolo § 

Tel. 46 62/17 33 O 

o o 
oooooooooooooooooo 



*** FLOPPY 1541 6x 
SCHNELLER! ••• durch 
Parallelbus für C 64. Interface 
kpl. geprüft mit Software nur 
DM 179,-. Info gegen DM 
1,50 in Briefmark., B. Akes- 
son, Pf. 802, 4040 Neuss. 



Ankäufe 



OOOOOOOOOOOOOOOOOO 

o o 

g TI-99/4A g 

O Suche Extended Basic o 

Modul evtl. Tausch ge- O 

g gen Editoriassembler g 

O sowie Maschinen- o 

O Sprachprogramme z. B. O 

g Flugsimulator und Ex. g 

o Basic Spiel Miner 2049 o 

O (USA-Version). O 

g Tel. 071 32/37608 g 

O O 
OOOOOOOOOOOOOOOOOO 



Apple II suche Programme, 
Schachspiele, Flug-Simula- 
tion, versch. Vorspanntitel, 
Grafik für Video-Filme, T. Pa- 
vone, Heilbronnstr. 6, 7146 
Tamm 



Suche Seikosha 6P-100A 

Drucker mit Interface für ZX 
Spectrum, Lothar Schröder, 
Dellchenstraße 3, 6731 Fran- 
keneck 



Suche: Gute und billige Soft- 
ware auf Diskette für 64K Ata- 
ri 600XL. Angebote an: Mi- 
chael Ebeling, Riepener Stra- 
ße 7, 3061 Beckedorf 



Suche Atari Diskettenstation, 

Aussehen egal, Hauptsache 
sie funktioniert. Bitte anrufen 
unter Berlin 30 / 

493-1927 



ZX Spectrum Soft- und Hard- 
ware. Preiswert durch Direk- 
timport. Info bei:- Ursula Kunz, 
Junge Halden 3, 7500 Karls- 
ruhe 41 



Suche Software für: 

VC-LO, C-64, ZX 81, ZX 
Spectrum. T. Scholz, Ma- 
rienstr. 13, 7778 Markdorf. 
Listings gesucht! 



Kontakte 



Hallo Spektrumfreaks. Ich 

möchte mit euch gerne Prog. 
tauschen. Liste, ob groß oder 
klein, an: Robert Weidinger, 
Schönmetzlerstr. 10, 8050 
Freising oder Sams- Diens. 
81 61 /43 72 



Kontakt mit MZ700-Leuten ge- 
sucht. Tel. 05 11 / 42 29 75 | 

OOOOOOOOOOOOOOOOOO 

o *** Atari-Spectrum- o 
o User-Club*** 

O monatl. Info, bundesweit o 

O organisiert, riesige o 

g Prog. -Bibliothek usw., g 

O melden bei: o 

g ASUC, Am Schürhof 17 g 

o 4905 Spenge o 

O Tel. 52 25 / 20 68 g 

OOOOOOOOOOOOOOOOOO 

□□□DDDDDDODDDDDDDD 
D □ 

ü Comp.-Club □ 

g Bad Hersfeld 

d sucht Mitglieder! 

□ Kontakt über □ 
§ Roland Reyer 

□ Am Giegenberg 21 
n 6438 Ludwigsau 1 

□ oder» Jugendhaus Hers- D 
d feld □ 

D D 

DODDDDDDDDDDDDnDDÜ 



Tausch 



DDDnDDaDaDDDDDDDDD 

n TI-99/4A Super Ext. □ 

□ Basic und Assembler- o 

g progr. Tausch bzw. Ver- J=j 

d kauf Info (1,-): Stefan ü 

□ Schäfer, Max-Planck-Str. ö 
g 8, 4050 M.-Gladbach 2. g 
D PS: Tauschliste beile- d 
LJ gen (nur ASsembl.). 

DDDDDnnDDDDDDDDDDD 



C-64-Superprogramme ge 

gen Unkosten oder Tausch. 
Gratisliste, Postlagernd 

05 85 42 B, 7900 Ulm/Do. 
Nur neueste Prg. 



Suche Software aller Art 
(Disk.), für Atari 800 XL u. An- 
tic-Hefte bis März 1584, evtl. 
auch Computer u. Analog. 
Dietmar Levenhagen, Land- 
wehr 83, 3057 Neustadt 1, 
Tel. 5032/611 81 



ZX-Spectrum 

Software und Interessen- 
austausch 

Monika Baumgartner 
4021 Linz 

Postfach 142 Austria 
Bitte Liste beilegen 
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Verschiedenes 



16 K Modul f. ZX81, 65,- DM. 
Trak-Ball für Atari + Commo- 
dore, 1 Fevertaste, 99,- DM. 
Beides neu, unbenutzt. Ver- 
kaufe (2 DM - 4 DM) + tau- 
sche Spectr. Softw. Liste gr. 
T. Schmer, Hohlstr. 11, 6791 
Steinbach 



UFO-Forschung. Informa 
tionen über UFOs etc. kosten- 
los. Suche Interessenten zum 
Aufbau einer Computer-AG (c 
64), spez. für wiss. UFO-For- 
schung! H. W. Peiniger, PF 
2361, 5880 Lüdenscheid 



VZ 200 Softw. Info g. Freium- 
schlag. W. Fischer, Friedrich- 
str. 14, 6463 Freigericht 5 



□□DDnnnnnnQDDDDDnn 



Orig. engl. Software 

von EMJAY, (Wargame 
News, The War Machi- 
ne), für Commodore- 
Rechner ab 16k und 
CBM 64! Näheres gegen 
Freiumschlag von: 
H. Topf, A.-Bucherer- 
Straße 63, 5300 Bonn 1 



DDDDDDDDDDDDDDDDDD 

Die richtige Soft-Hardware? 

Ich sage Ihnen in welcher 
Zeitschrift. Info gegen frank. 
Rückumschlag bei: M. Kiwitt, 
2000 Hamburg 74, Postlage 
RND 



Superatari-Adventures zu Su- 
perpreisen (in Deutsch, teils 
mit Supergrafik). Tel. 77 41 
/55 56 



C-64-Synthesizer: ca. 40 K, 

echte Noten, Partiturediting, 
Notenaüsdruck, Direktein- 
spielung + Notenumsetzung, 
Supersound. Info von Autor 
W. Kracht, Espellohweg 38, 
2000 Hamburg 52 



Roulettesoftware f. Sharp PC 
121 1/1 2/4551 /PC '1500. Rou- 
lettesystemprogramme »Auf 
Dauer gew.« »AD Astra« 
»Number one« «Acclaim« 
»Plein Prive« »Accord« DM 
550,-Cass. B. Nowotny, Gise- 
lastr. 3, 8000 München 40 



Aktion: Billige 
Kleinanzeigen 



Liebe Leser, 

wollen sie ein Kleinanzeige aufge- 
ben? Suchen Sie einen gebrauchten 
Home-Computer, Software oder 
Kontakte zu Computer-Clubs etc.? 

Dann nutzen Sie jetzt den Klein- 
anzeigenservice von „Compu- 
tronic". „Computronic" ist die 
Zeitschrift für Home-Computer- 
Besitzer. Sie erreichen durch uns 
eine Vielzahl von Lesern im In- und 
Ausland. 

Und so wird's gemacht: 

Kleinanzeigen-Coupon ausfüllen 
(alle Zeilen können ausgefüllt wer- 
den) und gegen 

Vorkasse von DM 4,50 einsen- 
den an: 

Tronic -Verlag 

Postfach 41 

3444 Wehretal 1 

Also, schnell ausfüllen und ein- 
werfen in den nächsten Postkasten. 
Dann ist mit Sicherheit Ihre Klein- 
anzeige dabei. 




An alle SF- und Fantasy- 
Freunde! Jeweils 8 Mitspieler 
für Strategiespiele gesucht. 
Mit Gewinnchancen. Näheres 
gegen Freiumschlag von: H. 
Topf, A.-Bucherer-Straße 63, 
5300 Bonn 1 



ZX-SPECTRUM! Spie- 
lend BASIC lernen Ca. 
mit 10 Pr.+Listing+Er- 
klärung+Tips+Tricks für 
den ZX. 10,- DM bei 
A. Meuser, Goethestr. 
18, 5205 St. Augustin 
NEU -SUPER ZX Spiele - 



Spectrum Softw. z. B. M. Mi- 
ner 8,-; ZOOM 8,-; Liste + 
kostl. Programm anfordern, 
Karte genügt: H. Novak, Eger- 
länder PI. 19, 6053 Oberts- 
hausen 2 



TI-99/4A: ca. 90 Tl-Basic und 
ca. 80 Ex-Basic Programme 
zu verk. Info g. Rückum- 
schlag. B. Knedel, Tulpen- 
gasse 16, 3171 Weyhausen, 
Tel. 53 62 / 7 1 1 87 



Achtung! 
Korrektur Heft 9: 

Im Programm „Projekt" für den C 64 wurde versehentlich 
die Zeile „5190 Goto 2000" (nach Zeile 5180) nicht abge- 
druckt. 



Wir bitten um Ihr Verständnis. 



Die Redaktion 



Computronic 



Kleinanzeigen 



nur gegen Vorkasse 



Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 
D Verkäufe D Kontakte □ Geschäftsempfehlungen 

D Ankäufe D Verschiedenes D Tausch 

folgenden Text: 






Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 

Preis für Kleinanzeigen: Private Anzeige DM 4,50 je Zeile 

gewerbl. Anzeige DM 8,00 je Zeile 
Chiffregebühr DM 10,00 je Anzeige 



Name/Vorname: 



Straße, Nr, 



PLZ/Ort: 



Datum, Unterschrift 



privat D gewerbl. D 

(bitte ankreuzen) 



Computronic 
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Kasseilenservice 



HEFT 
4 



VC-64 K = 8,— DM 
D = 15,— DM 
Mauern, Widerstand 

ZX- 

Spectrum K = 12,— DM 
Inventur 

TI 99 K = 8,50DM 

Drei-Kronen-Spiel 

Zahlenputzen 

VC-20 K = 11,50DM 
D = 18,— DM 
Hangman, Saurer Regen, 
Quadr. Gleichung 

ZX-81 K = 8,50DM 
Invader, Gun-Man 

Dragon 32K = 8,— DM 

Blizzard 

Apple II K = 14,50DM 
D = 19,50DM 
Wilder Westen, 
Karambolage, 

Maskengenerator 

Atari K = 10,50 DM 

Mastermind, 

Schlangenkrieg 



HEFT 
5 



TI 99 K = 14,50DM 

Karl der Käfer 
Aüen-Landing 

VC-64 K = 15,50DM 
D = 23,50DM 
Space-Comets/Erdspalte/ 
Sprite-Data 

Apple II K = 9,50DM 
D = 19,50DM 
Musik-Maker/Mission- - 
Adler/Disk-Catalog 

Sharp MZ 

700 K = 8,50DM 

Kalender 

Sharp PC 1 500 Lotto 

Dragon K = 10,-- DM 
32 

Space-Flight, Geosoft 

ZX-81 K = 10,— DM 

Go-Ball, Grand-Prix 

ZX 

Spectrum K = 8,50DM 
Missile-Comment 

Atari K = 12,50 DM 

Tank-Battle/Oil Panic 



HEFT 

6 



VC-64 K = 16,50DM 
D = 23,50DM 
Autostart/Bestellschein/ 
Roadpainter 



Dragon 
32/64 K = 

Wargames 



8,50DM 



Apple II K = 12,50DM 
D = 19,50DM 
Snake/Super Datei/Shape- 
tables 

VC-20 K = 8,50DM 
D = 15,00DM 
Bestellschein/Glücky 

ZX-81 K = 10— DM 

Moon-Crash/ZX-Draw 

ZX- 

Spectrum K = 13,50DM 
Defender/Lui der Wurm/ 
Alternativer Zeichensatz 



TI-99 

Jack the 
2099 



K= 14,50 DM 
Digger/Noah - 



HEFT 

7 



VC-64 K = 15,50DM 
D = 19,50DM 
Hardcopy/Space-Fighter/ 
Data-Generator 

ZX-81 K = 10,— DM 
Tonprogramm/Aldebaran 

Atari K = 12,50 DM 

Startup/Zeilen-Split/ 

Chopper-Flight 

VC-20 K= 11,— DM 
D = 15,50DM 

Multigraph/All-Rammer 

ZX- 

Spectrum K = 12,50DM 

Matheprogramm/Bongo- 

Beecatcher 

Apple II K = 12,50DM 

D = 19,50DM 
Library/Fight 

Dragon 32K = 8,50 DM 
Laser-Attack 

TI-99 K = 14,— DM 

Lift Bär 

ASC II DEF TEIL 1 



s< 



Bestellkarte-Kassettenservice 



Computronic 

Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden. 
(Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse D 
innerhalb von 1 Woche 



oder Inland per Nachnahme D 
+ Versandkosten 



Entnehmen Sie bitte aus unserer Preisliste die notwendigen Angaben für Ihre Bestellung: 

Bitte liefern Sie mir: 

D Cassette für G Anzahl 



Name/ Vorname: 



PLZ/Ort: 



System 



aus Heft. 



D Diskette für 

zum Preis von gesamt 



System 



aus Hell 



D Anzahl 
DM 



Straße, Nr. 



Datum, Unterschrift. 
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Kassettenservice | 



Jedes Programm in Computronic wird einer Endkontrolle in unserem Hause unterzogen und genauestens geprüft. 
Alle im Heft abgedruckten Programme sind nach der richtigen Eingabe der Listings auch funktionsfähig. Viele Leser 
verlieren jedoch schnell die Geduld am Programmieren, sollte etwas einmal nicht klappen. Die häufigste Ursache 
von Störungen im Programm, sind unterlaufene Fehler bei der Eingabe. Verzweifeln Sie nicht, sollten Sie einmal kei- 
ne Zeit zum Programmieren haben oder sollte etwas nicht gelingen. Alle Programme werden im Verlag gespeichert 
und können jederzeit mit beiliegender Bestellkarte bezogen werden. 

Tragen Sie bitte alle notwendigen Angaben in die Bestellkarte ein. 



Rückgabe-Garantie: 

Wir garantieren: 

• kostenlosen Umtausch von defek- 
ten bzw. transportgeschädigten 
Datenträgern! 

• die Zusendung der Umtauschware 
erfolgt noch am Posteingangs- 
tag! 

Bestellung per Telefon: 

Wenn es schnell gehen soll ... rufen 
Sie uns an. Wir nehmen Ihre Bestel- 
lung gern entgegen. 

Tel.-Nr.: 56 51 - 4 06 93 oder 
56 51 - 4 06 43 

Tronic- Verlag, Postfach 41, 
3444 Wehretal 1 
nach 1 7 Uhr: 
Anrufbeantworter 56 51-4 06 93 



Bitte beachten Sie: 

Sie ersparen sich zusätzliche Ko- 
sten (bis zu DM 5,-), wenn Sie per 
Vorkasse (bar, Verrechnungs- 
scheck) bestellen. 
Ausland: • Bestellung nur gegen 
Vorkasse! 



Tontaubenschießen 

C-64 D = 19,50 DM 

K = 16,00 DM 



Ein Spiel mit sehr guter Grafik für 
Ihren C-64. Nach den Regeln des 
sportlichen Tontaubenschießens müs- 
sen Sie versuchen, alle 25 Tauben, die 
einzeln oder auch als Dublette vom 
kleinen bzw. großen Haus kommen, zu 
treffen. 



HEFT 
8 



C-64 K = 16,50DM 

D = 23,50DM 
Monster Attack/Block- 
Painter/Epson-Drucker 

Atari K = 14,— DM 

D = 19,50DM 
Painter/Hardcopy 

Apple II K = 14,— DM 
D = 19,50DM 
Reversal 
Disk-Menue-Generator 

TI-99 K = 14,50DM 
D = 19,50DM 
Maya/ASC II DEF Teil 2 

ASC II DEF 
Teil 1+2 D = 
D = 
Laser 

2001 K = 

Andromeda 



19,50DM 
21,— DM 

8,50DM 



ZX-81 K = 10,— DM 
Irrgarten 3 D 

ZX- 

Spectrum K = 14,50DM 
Solitaire/Superstat. 
Kleinstes gem. Vielfaches 

VC-20 K= 11,— DM 
D = 19,50DM 
Zyklo/Meteorit 



Dragon K = 

Hardcopy 



13,— DM 



HEFT 
9 



Colour 

Genie K = 10,— DM 

Fachs und Hund 

C-64 K = 16,— DM 

D = 23,50DM 
Projekt 
Datenbank 

Alari K = 14,— DM 
D = 19,50DM 
The Big Quest 
Fünf gewinnt 

Apple D = 19,50DM 

Diamonds 

Hilfsprogramm 



TI 99 

Transfer 
Silverspar 



K = 14,50DM 
D = 19,50DM 



Laser 

2001 K = 12,— DM 

Crazy Cake 



ZX-81 K 

Reversi 



= 10,— DM 



ZX-Spec- 

trtim K 

Jump about 



= 14,50DM 



VC-20 K = 14,— DM 
D = 19,50DM 
Garten 
Schloß Gruselstein 

Dragon K = 10,— DM 
Anwenderprogramm 



HEFT 
10 



Ti-99 K = 

D = 

Mother-Duck 
Screen-Designer 


14,50 
19,50 


VC-64 K = 

D = 

Spiders 
The Basic 


16,50 
23,50 


Atari K = 

D = 

Splitt 


11 — 
18,50 


zx- 

Spectrum K = 

Pac-Man 
Oil-Panic 


14,50 


VC-20 K = 

D = 

Fressmann 
Outlaw 


14,— 
19,50 


Apple D = 

Tic - Tac - Toe 
Jumper 


19,50 


ZX-81 K = 

Panik Labyrinth 


10,— 


Dragon 
32/64 K = 
Dragon paint 


14,— 



Laser 

2001 K = 

Cave-Man 



8,50 



Im nächsten Heft: 

Aktuelle Informationen, 
Tips & Tricks 
Software-Reviews, Forth- 
Kurs 

und natürlich wieder tolle 
Spielprogramme und An- 
wenderprogramme. 

Außerdem lassen Sie sich 
überraschen vom Toppro- 
gramm der Ausgabe No- 
vember. 

Für den Commodore 64 

bringen wir: 

Sprite-Character-Desi- 
gner. - Dieses Programm 
übernimmt eine Vielzahl 
von Aufgaben. Es gestattet 
die Definition von Multico- 
lor sowie normale Sprites. 

Für den ZX-Spectrum: 
Frogger * 




Für den TI-99: 
Cave-Man 




Außerdem berücksichti- 
gen wir wieder alle be- 
kannten Homecomputer- 
Systeme wie: Commodore 
64, TI-99, Atari, ZX-Spec- 
trum, ZX-81, VC-20, Dra- 
gon 32 und den Apple. 

Also, auf zum Zeitschriften- 
händler, ab 29. 10. 1984 
gibt es die neue November- 
ausgabe von „Computro- 
nic". 



Computronic 



Kassettenservice 



aus unserem Angebot 



Tontaubenschießen: 

Für Commo- 
dore 64. Dem 

realistischen 
Tontauben- 
schießen 
nachempfun- 
den. Von ei- 
nem Katapult 
geschleuderte 
Tontauben 
müssen reak- 
tionsschnell getroffen werden. In diesem 
Spiel kann jeder seine eigene Meister- 
schaft austragen. Eine Supergrafik zeich- 
net dieses „Tontaubenschießen" besonders 
aus. In Computronic wurde dieses Pro- 
gramm noch nicht ausgedruckt. 




Tomstone-City: 

Eine kleine Stadt 
im „Wilden We- 
sten" gewährt 
Dir Schutz vor 
Deinen Feinden. 
Solange Du sie 
nicht verläßt 
kann Dir nichts 
passieren. Au- 
ßerhalb der Stadt 
wirst Du jedoch 
gejagt. Gewählt werden kann zwischen ver- 
schiedenen Schwierigkeitsgraden. Ein Spiel 
für Atari 600/800 XL. 



»canr * 
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Projekt: 



Monster-Attak: 




Als Top- 
programm 
auserwählt 
von der 
Redaktion. 
Sie sollen 
eine ge- 
fährliche 
Mission 
ausführen. 
Um für die 
nächste Zeit genügend Uran zur Verfü- 
gung zu haben, sollen Sie eine Reise 
zum Mond unternehmen und nach dem 
edlen Metall suchen. Ihre Reise ist in 
fünf Phasen aufgegliedert, die nachein- 
ander bewältigt werden müssen. Ein 
schönes Spiel für den Commodore 64. 




Maya: 




Für den Commodore 64. Fremde Wesen greifen 
die Erde an. Versuchen Sie die angreifenden 
Monster vor Erreichen der Erde zu zerstören. 
Das Spiel unterteilt sich in 6 Level, wobei bei 
jedem Level die Spielgeschwindigkeit sowie die 
erreichbare Punktzahl ansteigt. Das Spiel wird 
mit Joystick gespielt. 



Das Spiel läuft auf dem TI- 
99/4 A mit dem Exten ted Ba- 
sic Modul und wird mittels 
Joystick gesteuert. Der 
Rechner kann in diesem 
Spiel bis zu 3781! verschie- 
dene Bildschirmszenen dar- 
stellen. Das Spiel verfügt 
über eine hervorragende 
grafische Darstellung. Be- 
gleiten Sie also Coconut Joe 
auf die abenteuerliche Expe- 
dition in den Urwald. Viel- 
leicht haben Sie Glück und 
finden die Schätze der 
Mayas. 



Crazy-Cake: 

Backe, backe 
Kuchen... Set- 
zen Sie Ihre Bäk- 
kermütze auf, 
denn hier 

kommt... die 
verrückte Ku- 
chenbäckerei. 
Das Spiel ist in Laserbais für den Laser 2001 
geschrieben und wird mit Joystick gesteuert. 




Jump about: 



Ein kleiner Floh 
und sein Freund ha- 
ben ein schweres 
Schicksal zu mei- 
stern. Sie sind beim 
Herumhüpfen un- 
bewußt in den Ein- 
flußbereich eines 
bösen Magiers ge- 
raten. Nun gilt es, 
den Weg in die 
Freiheit zu finden. Ein Spiel für den ZX-Spec- 
trum mit toller Graphik. 




Computronic erscheint monatlich im Tronic- Verlag. Der Bezugspreis beträgt im Inland DM 5,50. 

Im Preis ist die gesetzliche Mehrwertsteuer enthalten. 

Tronic-Verlag GmbH • Postfach 41 • 3444 Wehretal 1 • Telefon 56 51 - 4 06 43 / 4 06 93 



